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’ ABSTRACT 


The DMO] Exerciser is a program written to exercise the DMO1 Data Break Multiplexer to 
assure that it can properly interlace data breaks from several peripheral devices to the PDP-8 computer. 


It does this by exercising several data break devices simultaneously. 
2. REQUIREMENTS 


oes Equipment 


Family-of-8 Computer and 
DMO1 Data Break Multiplexer, plus at least one of the following 


TCO1 DECtape and/or 
TC58 MAGtape and/or 
338 Display and/or 
Extended Memory and/or 
RMO8 Drum or 

DF32 Disk or 

RFO8 Disk 


222 Storage 


The program occupies all of the lowest 4K of the computer's memory and uses some of this 


area and areas in other memory banks (if available) for data storage. 


2.3 Preliminary Programs 


The appropriate diagnostic programs for the data break devices. 
3 LOADING PROCEDURE 


3.1 Method 


The program is loaded, using the "standard binary loader” technique, into memory bank 0. 
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AC Switch 


4, STARTING PROCEDURE 
4.1 Control Switch Settings 


Set As 
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The following is a table of AC Switch settings and their action on the program. 


Action on Program 


Don't halt on hardware errors 
Halt on hardware errors 
Don't halt on data errors 
Halt on data errors 

Don't print hardware errors 
Print hardware errors 

Don't print data errors 

Print data errors 


Look at ACS5 for disk/drum transfer 
direction 


Ignore ACS5 

Write 

Read 

Suppress DECtape exercising 
None 

Suppress MAGtape exercising 
None 

Suppress disk/drum exercising 


None 


Freeze memory field 


None 
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4.2 Startir.y Addresses 


There are two starting addresses for the program. 


a. Start at location 00200 when the program is initially read into memory, to allow the 
program to interrogate the operator . 


b. Restart at location 0020! to avoid re~interrogating the operator about computer 
configuration. 


4,3 Starting Procedure 


Start the program using the following starting procedure, and ignoring those steps not 
applicable to computer configuration. 
a. Load program into memory bank 0 using the "standard binary loader ." 


b. Mount onto a DECtape transport a reel of DECtape which has the standard mark and 
timing track format (2702 blocks, 201 words each). Set the transport selector to 8, set switch to 
WRITE ENABLE, set switch to REMOTE. 


c. Mount onto a MAGtape transport a reel of MAGtape which is certified to operate at 
800 bpi with the "write-lock" ring in (able to write). Set the transport selector to 0 and ON LINE. 


d. Set up the DF32, disk 0, so that the upper 16K may be written on (not write-lock). 


e. Set up RFO8, disk 0, so that uppermost locations may be written on (not write-lock) 
(256K). 


Ff. Set up RMO8 drum so that track 77, sectors 50 to 77 may be written on (not write-lock). 
g. Set up 338 Display so that it can be operated by the 8. 
Set ACS to 00200. 
i. Depress LOAD ADDRESS. 
j- Set ACS per Section 4.1 (normal setting is 0000). 
k. Depress START. 


|. Answer questions asked by program with "Y" for Yes, "N" for No, and number of 
extra memory banks (between 1 and 7) (if applicable). 


m. After interrogation is complete, program will start exercising the devices whose answers 
are "Yes" and the DMO1. 


a OPERATING PROCEDURE 


5.1 Operational Switch Settings 


See Section 4.1 
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None 


5.3 Program and/or Operator Action 


After setting up the I/O devices and answering the questions asked by the program, the 
operator need perform no other action unless an error occurs. If a particular device consistently has 


errors, it may be "turned off" by setting to 1 its ACS (see Section 4.1, ACS 6-8). 


6. ERRORS 





Onl Error Typeouts 


Since all error typeouts occur with the program interrupt facility off, a DECtape timing 
error will generally occur if any non-DECtape error has been typed out. Normally, the DECtape 


timing error can be ignored under these circumstances. 


6.1.1 Hardware Errors 
Hardware errors cause an error status typeout for the device in error. Shown below are : 
the error status bits for the various devices. * 


6.1.1.1 DECtape Error Status (TCOT) - 





Eton Flag) Memory Meme) isl register i 
Mark Track Error 
Endiof Tape i. ng Error DECtape Flag 


Parity Error 
Select Error 


6.1.1.2 MAGtape Error Status (TC-58) - 


Eee Flag S\N | t iaciaes FLAG 

Tape Rewinding Bad Tape 

Beginning of Tape Data Request Late 

' THegal Record Length Incorrect 
Parity Error 


Read Compare Error 
End of File End of Tape 
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( 6.1.1.3 Drum Error Status (RMO8) - 


olif2}stats] st 7] sj 9] wf 
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if Data Timing Error 
Parity Error Drum Sector Counter 





6.1.1.4 Disk Error Status (DF32) - 


oli }2}3}4}sf{et{7 fale fof 
Foca -Synec Computer | Sadie Error 








Mark Extended Non-existent Disk/ 
Address write=lock on 
Disk Extended Data Request Late 
Address 


6.1.1.5 Disk Error Status (RFO8) - 


Photon] Interrupt Computer | te barity Error 
Mark Enable Extended | Non-existent Disk 








Data RQ Buffer Memory Data Request Late 
° Enable 
. | Write Lock-on 
6.1.2 Data Errors 


Data error typeouts present the following information: 

a. Offending Device (DECtape, MAGtape, DISK/DRUM 
b. Memory Field in which error occurred 

Address of "Good" Data ("GADD") 

Good Data ("GDAT") 

e. Address of "Bad" Data ("BADD") 

f. Bad Data ("BDAT") 
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6.2 Error Halts 


Each error, which has an error typeout, also has an error halt. 
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9.3 DECtape Exercising 


The exercising of DECtape follows this procedure: 


a. Six hundred (octal) words are obtained from a random number generator and are stored 
in an output buffer in memory (some memory bank). This is done with PI off. 


b. The block to be sought for writing is incremented by 3. It is initially 0. 


c. The data is written on DECtape into the selected block (and the two following). While 


this is taking place, the PI facility is turned on to allow interrupts from any I/O devices in use. 


d. After the data is written, the information is read back from the selected block (S) into 
an input buffer in the same memory bank data was written from. This takes place with PI on. 


e. The data written is compared with the data read to see if any errors occurred. This 
is done with the PI on. Any discrepancies will be reported on the teletype (unless suppressed) and 
will cause error halts (unless suppressed) . 


fF. Anew data field is selected for data transfer for DECtape. The program then returns 
to Step a (above). 


9.4 MAG tape Exercising 


The exercising of MAGtape follows this procedure: 


a. Six hundred (octal) words are obtained from a random number generator and are stored 
in an output buffer in memory (some memory bank). This is done with the PI on. 


b. The data is writren on MAGtape in an area not previously written on by this program. 


While this is taking place, the PI facility is turned on to allow interrupts from any I/O devices in use. 


c. After the data is written, the information is read back into an input buffer in the same 
memory bank data was written from. This is accomplished by rewinding the MAGtape to "BOT," 
spacing forward as many records as necessary to get to the data, then reading it into memory. This 
is done with the PI on. 


d. The data written is compared with the data read to see if any errors occurred. This 


is done with the PI on. Any discrepancies will be reported on the Teletype and will cause error halts. 


e. The data on MAGtape is then "Read Compared" against the data in memory. This is 
done with the Pl on. Any discrepancies will result in the hardware error "Read Compare Error". 


f. Anew data field is selected for data transfer for MAGtape. The program then returns 
to Step a (above). 


o Disk/Drum, Exercising 


The exercising of disk/drum follows this procedure: 


a. Six hundred (octal) words are obtained from a random number generator and are stored 
in an output buffer in memory (some memory bank). This is done with PI on. 


b. The data is written on the disk/drum into the highest 601 (octal) locations (on disk/drum 0) 


(265K). While this is taking place, the PI facility is on. 
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6.3 trror Recovery 


To recover from an error halt, depress CONTINUE. If it was a data error, the program will 
continue until another data error is found for the device, or until all the data has been checked. If 
it was a hardware error, the program will attempt to perform the function again, except a non-existent 


disk error which is not recoverable. 





7s RESTRICTIONS 

7.1 Starting Restrictions 
None 

Lt Operating Restrictions 
None 

8. MISCELLANEOUS 

8.1 Execution Time 


Not applicable. Since this is an exerciser program, it does not stop on its own accord, 


except for errors. 
rae PROGRAM DESCRIPTION 


9.1 Interrogation 





The first function that is performed by the program is interrogation. The operator is 


questioned by the program to determine what peripherals are to be exercised. 


9 2 Initialization 








Next, initialization takes place. Random memory fields (if applicable) are selected for 
the devices being tested. The DECtape is initialized by causing it to move to the end zone at the 
beginning of tape. The MAGtape is initialized by causing it to rewind to the beginning of tape; 
tests are also made at this time to assure that the tape control is ready and that the tape transport is 
also ready (and exists). A two word transfer is made to disk or one sector to the drum to initialize it. 


The 338 Display is set up to execute a display program. 
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c. After the data is written, the information is read back into an input buffer in the same C 
memory bank data was written from. This takes place with the PI on. 


d. The data written is compared with the data read to see if any errors occurred. This is 
done with Pl on. Any discrepancies will be reported on the Teletype and will cause error halts. 


e. Anew data field is selected for data transfer for disk/drum. The program then returns 
to Step a (above). 


If a hardware error occurs during any function of a peripheral, that function will usually be 


attempted repeatedly until it is successful, or fhe operator intervenes. 


730 Data Buffers Memory Map 


The following locations in each memory bank being used for data transfer are used as buffer 


areas. 
DECtape Output Buffer 3200 - 3777 
MAGtape Output Buffer 4000 - 4577 
Disk/Drum Output Buffer 4600 - 5377 
DECtape Input Buffer 5400 ~ 6177 
MAGtape Input Buffer 6200 - 6777 
Disk/Drum Input Boffer 7000 - 7577 
27 Display Exercising wy 


The exercising of the display is handled quite simply. The 338 is initialized by clearing 
the "initial conditions", and the break field is set to 0. The display address register is then set to the 
starting address of the display program. The display program, which is written in 338 display instruc- 
tions, causes a square, with corners at 100,100; 100,1700, 1700, 1700, 1700. 100; to be displayed 


in vector mode. Diagnosis of display errors is visual . 
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ia EXERCISER = TAPE 1 


6683 
6695 
66411 
66412 
6645 
6621 
6622 
6624 
6612 
6624 


66014 
6603 
6605 
6641 
6642 
6615 
6616 
66214 
6622 
4626 
6641 
6645 
6646 
6643 


6764 
6762 
4764 
6766 
6771 
4/772 
6774 


6704 
6741 
4724 
6742 
6744 
6746 
6706 
6722 


6204 
A202 
6214 
4224 
6234 


PAL1®@ 


/OM@i EXERCISER = TAPE 1 
/10T DEFINITIONS 


ADRUM 

DRCR=6683 
BRCw=6605 
PRCF 26611 
OREFs6612 
ORTS=6615 
ORSE=6624 
ORSC=6622 
ORCN=6624 
ORES26612 
ORFS=6624 
/DISC 

DCMA=66814 
DOMAR#6623 
DMAW=6605 
OCEA=6614 
OSAC2#6612 
DEAL =6615 
DEACS6616 
OFSE=66214 
OF SC2=6622 
OMAC=6626 
OCImM=66114 
OIML =6615 
DIMA=6616 
OXAL 26643 


/TCO4 

DTRA26764 
QTCA=6762 
OTXA26764 
DTLA=6766 
OTSF=6774 
OTRBs6772 
OTLB=6774 


fTC58 

MTSF=6704 
MTCR26711 
MTTR26724 
MTAFS6712 
MTCM=6714 
MYLC=6716 
MTRS=6766 
MTGO26722 


EXTENDED MEMORY 


CDF =62014 
CIF =62@2 
ROF 26214 
RIF =4224 
R1B=62354 
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/OM@i EXERCISER © TAPE 1 


BOGi 
9OB2 


BB0S 
OBB4 
G8e5 
G26 
8207 


BB28 
OG2i 
GB22 
B25 
G824 
@@25 
6226 
@827 
BBS2 
OG3i 
8832 
8935 
C834 
@B35 
BB36 
8837 
8842 
BA4i 
GB42 
B45 
Baa4 
G45 
0246 
8847 
8250 
P2914 
0882 
8255 
8254 
0455 
0256 
9257 
G062 
B61 
B262 


G063 
OB64 
2865 





6244 


A004 
5462 
2699 


2521 
2254 
2490 
2094 
2726 


2820 
8090 
G00 
goa2 
2630 
2654 
2720 
4561 
4464 
4446 
1462 
2643 
8735 
g755 
2637 
2112 
26414 
4249 
4255 
2444 
4267 
4247 
2277 
2645 
4.266 
2363 
9602 
@612 
B627 
644 
9662 
2634 
4331 
4343 
345 
2365 


S288 
4565 
2171 


RMF s6244 
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/DISPATCH TO PI SCAN FLAG ROUTINE 


#4 


JMP T «4d 
SCAN 


POINTERS, GOBS OF POINTERS 


PNTR{4, 
PNTR2; 
PNTRS, 
PNTR4, 
PNTRS, 


#20 
OTFELO, 
MTFELDs 
OOFELD, 
PNTR6E, 
PNTR?7, 
PNTRE, 
PNTRO, 
PNTRiG, 
PNTRii>» 
PNTR4i2, 
PNTRAIS, 
PNTRL4, 
PNTRGS, 
PNTR6, 
PNTR4I7, 
PNTRiS; 
PNTRG9, 
PNTR2O, 
PNTR21, 
PNTR22, 
PNTR23, 
PNTR24, 
PNTR25, 
PNTRS2> 
PNTRSS, 
PNTR34, 
PNTRSS, 
PNTR36, 
PNTRS8, 
PNTRS39, 
PNTR4O, 
PNTR41, 
PNTR42, 
PNTR48, 
PNTR49, 


PMESS1, 
PMESS2, 
PMESS3, 





MESAGE 
INPUT 
RANGEN 
GET 
DODATA+6 


9489 


PAGE i-t 


g /DECTAPE EXTENDED MEMORY FIELD 
g /MAGTAPE EXTENDED MEMORY FIELO 


Y, /OISC OR ORUM EXTENDED MEMORY FIELD 


EXIT 
RANDS 
DODATA 
RF @BWR 
RF @8BRD 
RMBBWR 
RMBSRO 
DOFLAG 
OF S2WR 
OF $2RD 
DTFLAG 
SPCFWD 
MTFLAG 
REWIND 
MTERR 
RANDI 
OTRITE 
DTREAD 
PRINT 
TYPE 
MTWAIT 
CRLF 
DECTAP 
MAGTAP 
RM@B 
OF $2 
RF G8 
MEMORY 
DISAVE 
OTREST 
NOOISC 
D1S338 


MESS@1 
MESS@2 
MESS@S 
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$066 23571 PMESS4, MESS@4 
G67 1772 PMESS6, MESS@6 . 


@270 2565 PMESS7, MESS@7 
G@G71 3842 PMESS&, MESS@8 
@272 3046 PMESS9, MESSY 
0873 $§€55 PMESi@,» MESSI 
874 $132 PMESi5, MESS15 


875 7752 K7750, 7758 WO - DISC 
G27& 77514 K775i, 77514 /CA - DISC 
@277 77/52 K7752:. 7752 fw - TCS8 
188 7758 K7753, 7753 /CA =- TC5B8 
G1g1 7754 K7754, 7754 WO - TCBL 
G@i182 7755 K7755, 7755 CA ~ TCHIL 


Gie@93 2482 KG4G@, 488 /REVERSE DIRECTION (DECTAPE) 
184 68208 K@26G;, 208 GO, STOP (DECTAPE) 

$195 72698 K7260, 7288 f-698 (SIZE OF DATA TRANSFERS) 
G186 $177 BUFFi, 3177 A(DECTAPE OUTPUT BUFFER) -1 
6197 $8377 BUFFS, 5377 /(DECTAPE INPUT BUFFER) #1 

9148 68614 KGG14, 44 /REWIND.s ENABLE (MAGTAPE) 

@iii 6177 BUFFS, 6177 /(MAGTAPE INPUT BUFFER) =4 

i142 $3777 BUFF2. 3777 /(MAG TAPE OUTPUT BUFFER) <4 
@i13 6/777 BUFFG6: 6777 f(BISC OR DRUM INPUT BUFFER) <i 
@114 4577 BUFFS, 4577 A(OISC OR DRUM OUTPUT BUFFER) -1 
@1145 7775 MBGG3, #3 AMINUS 8 

8116 7462 MOS16, «346 MINUS N 

@1447 F447 MO@SS1, =<-334 fMINUS Y 

@12@ 81¢¢ M2780. ~2766 /MIGHMEST DECTAPE BLOCK YO BE USES 
@i21 7774 MOZG4G, = 

122 38828 K30G@;, 3882 f24 RMBB DRUM SECTORS 


Gi25 O9&76 KOG78-. 78 /MASK FOR MEMORY FIELD BITS 
Gi24 8848 K@@4e:. 48 /MASK FOR DECTAPE SUPPRESSION 
9125 8249 K#248, 248 /SPACE 

126 8215 K@215, 2145 /CR 

9127 212 KG242, 212 /LF 

Q138 9887 K@OQZ7, 7 

Bi3i 7748 MO24G, ~AB /~CSPACE) 


B132 8180 KG@188, 4182 

Bi35 7618 SKIP» SKP CLA “MAGIC INSTRUCTION 

8124 8820 K@220, 28 AMASK FOR MAG TAPE SUPPRESSION 
8135 8018 K@Gid,» 18 /MASK FOR DISC OR DRUM SUPPRESSION 
Giz6 1008 Ki@g@, 188¢ #MASK FOR TC58 BOT 


Gqs7 ¢7Os SISCEA, 788 AOIScC EXTENDED aADORESS (BF 32: 
1448 7177 OISCAD, 7177 /DISC ADORESS 

B¢ai 7/758 DRUMAD, 7752 /ORUM ADDRESS (RMGB) 
@1442 @877 TRACK, 77 /DISC EXTENDED ADDRESS (RF@B) 
9143 8589 INTERN, 588 /ZINTERRUPT ENABLES (RF S68) 

9144 vag AC» 2 /AC AT PI 

G1a5 @00G LINK» 0 /LINK AT PI 

146 6882 DISTAT, @ /DECTAPE STATUS 

6147 80280 MISTAT. @ /MAG TAPE STATUS 
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8158 
8151 
8152 
8153 
8154 
8155 
6156 
8157 
0168 
016i 
8162 
0163 
8164 
8165 
- 8166 
6167 
#170 
B171 
@172 
6175 
0174 
6175 


2208 
0201 
8282 
8205 
8284 
8265 
9206 


G207 
0218 
B2i1 
G212 
8215 
G214 
8215 
2216 
@217 
G220 
G@221 
G222 
228 
9224 
B225 
G226 
@227 
R232 
G231 
G@23e 
G233 





gee 
goog 
PLY 
900g 
5454 
5452 
5453 
5454 
5455 
5462 
geo 
4688 
2802 
@510 
9526 
@517 
@2a0 
G288 
G20g 
LY 
geo 
@200 


@200 
§207 
@280 
@0o0 
@200 
9289 
6281 
5206 


7200 
3201 
3282 
3203 
3204 
4263 
4493 
4064 
4403 
4327 
5225 
5216 
4154 
3204 
1266 
4493 
4327 
5234 
5225 
4155 
3202 


fOM@1 EXERCISER = TAPE 1 


RECORD, @ 
OOSTAT» @ 
DRMSEC. @ 
CHAR, 8 
JMPOEC. JMP I PNTRS4 
JMPMAG, JUMP I PNTRSS 
JMPRMB, JMP Y PNTRS6 
JMPDS2, YJMP J PNTRSB 
JMPR@8., JMP | PNTRSO 
JMPS338, JMP I] PNYR49 
FELDa« 4) 
OTPNTR,», OTEXER 
MTPNTR,. MTEXER 
RMZBPR, RMOBEX 
DFS2PR, OF S2EX 
RF OSPR, RFO@BEX 
DTCNTR, @ 
TEMP, 0 
TEMPL, 2 
MTCNTR, @ 
BOCNTR: @ 
LOOK, @ 
a209 
START, JMP INTERR 
8 
g 
8 
g 
1ON 
JMP ¢ 
/INTERROGATE THE OPERATOR ABOUT 
INTERR, CLA 
DCA START#4 
DCA START#2 
DCA START#S 
OCA START*4 
TAD PMESS4 
JMS | PNTR4 
ASK, TAD PMESS2 
JMS [| PNTRY 
JMS TEST 
JMP ASK2 
JMP ASK 
TAD JMPDEC 
DCA START#1 
ASK2, TAD PMESS4 
JMS I PNTR4 
JMS TEST 
JMP ASKS 
JMP ASK2 
TAD JUMPMAG 
DCA START#2 
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24-MAR@74 9819 PAGE ie3 


/NUMBER OF RECORDS WRITTEN ON MAG TAPE 
/ORUM OR OISC STATUS 

/ORUM SECTOR COUNTER 

/CHARACTER FROM KEYBOARD 


DECTAPE STARTER 
MAGTAPE STARTER 
RMBS STARTER 
OF 32 SYARTER 
RFGS STARTER 


/JUMP TO 
ZJUMP TO 
/JUMP TO 
/JUMP TO 
/JUMP TO 


/NUMBER OF EXTENDED MEMORY FIELOS 
POINTER TO DECTAPE EXERCISO® 
/POINTER TO MAGTAPE EXERCISER 
POINTER TO RM@B DRUM EXERCISER 
/POINTER TO OF S2 OISC EXERCISE 
/POINTER TO RF@S OISC EXERCISER 


/DECTAPE LOOP COUNTER 
/TEMP STORAGE 


/MAGTAPE LOOP 
/DISC OR ORUM 
/BLOCK LOOKED 


COUNTER 
COUNTER 
FOR 


JZINTERROGATE OPERATOR 
/(DECTAPE) THESE ANOD'S MAY BE REPLACED 
/(MAGTAPE) BY JUMPS 


A(DISC OR DRUM) 


IF THESE DEVICES ARE AVATLABLE 


4(338 DISPLAY? 
/TURN ON PI 
/IGLE HERE WHEN THERE IS NOTHING BETTER TO DO 


MACHINE CONFIGURATION 


/INITIALIZE STARTER JUMPS TO AND @ 


/TYPE OUT HEADER 


7ASK OPERATOR ABOUT DECTAPE 


/ASK OPERATOR ABOUT MAGTAPE 
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8234 
8255 
8236 
2237 
8242 
B241 
8242 


9243 
8244 
@245 
8246 
6247 
9250 
@251 
G25e2 
G258 
2254 
8255 
8256 
8257 
8268 
8261 
B262 
G245 
B264 
8265 
8266 
9267 
8278 
B271 
8272 
82735 
8274 
8275 
9276 
8277 
8382 
8381 
8382 
23835 
8304 
8395 
@386 


0387 
0318 
@344 
G312 
@315 
0314 


4265 
4483 
4327 
5243 
5234 
4164 
3284 


4267 
4403 
4327 
5253 
5243 
4156 
$203 
5272 
4276 
4493 
4327 
§263 
5253 
1157 
$2683 
§272 
4274 
4483 
4327 
5272 
5263 
4168 
3203 
4072 
4493 
4327 
5303 
5272 
1073 
4493 
4404 
5277 
7104 
7006 
3162 
4459 


4i3s4 
S282 
4115 
$018 
4485 
8123 


ASKS, 


ASK4, 


ASKS, 


ASK6, 


ASK7, 


PALIG Visi 


TAD 
JMS 
JMS 
JMP 
JMP 
TAD 
OCA 


TAD 
JMS 
JMS 
JMP 
JMP 
TAO 
OCA 
JMP 
TAO 
JMS 
JMS 
JMP 
JMP 
TAO 
OCA 
JMP 
TAD 
JMS 
JMS 
JMP 
JMP 
TAD 
BCA 
TAD 
JMS 
JMS 
JMP 
JMP 
TAD 
JMS 
JMS 
JMP 
RAL 
RTL 
DCA 
JMS 


PMESSS 
I PNTRG 
TEST 
ASK4 
ASK3 
JMP338 
START+#4 


PMESS6 
1 PNTR2 
TEST 
ASK5 
ASK4 
JMPRMB8 
START#5 
ASK7 
PMESS?7 
1 PNTR4G 
TEST 
ASK6 
ASK5 
JMPDS2 
START#S 
ASK7 
PMESS8 
I PNTR1 
Ne ea 
ASK? 
ASK6 
JMPROB 
START#S 
PMESS9 
1 PNTRG 
TEST 
+6 
ASK7 
PMES418 
I PNTRY 
I PNTR2 
170 

CLL 


FELD 
I PNTRS3 


a oa. eee 
24-MA 914 


oh 
fe 
ps: 


/ASK QFPERATO™ ABH tee 


/ASK OPERATOR ABOUT “88 


/ASK OPERATOR ABOUT DF 32 


/ASK OPERATOR ABOUT RF OS 


ZASK OPERATOR ABOUT EXTENDED MENORY 


/ASK HOW MUCH 


/POSITION BITS 


/STORE NUMBER OF EXTRA MEMORY BANKS 
/CR-LF 


/LOAD EXTENDED MEMORY FIELDS FOR 


/DECTAPE, 


TAD 


MAGTAPE, 


KB828 


OCA @ 


TAD 
DCA 
JMS 
AND 


ME2B3 
12 

1 PNTRS 
K8078 


AND DISC/DRUM 








/OMGi EXERCISER = TAPE 1 
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| 9315 3400 DCA I @ 
| 0316 1162 TAD FELD 
@317 7844 CIA 
2328 1408 TAD I B 
@321 7748 SMA SA CLA 
9322 5313 UMP y=? 
323 2600 1S2 @ 
0324 2818 {sZ 18 
8325 5513 JMP .-12 
326 5201 JMP START#4 
@327 8880 TEST, "4 
G338 6832 KCC 
@331 4496 JMS [| PNTR4 
0332 3153 DCA CHAR 
333 4153 TAD CHAR 
9334 4116 TAD M0316 
8335 7658 SNA CLA /NoNG? 
8336 5727 JMP | TEST “YES 
8337 2327 IS2 TEST /NO, INCREMENT 
0348 4153 TAD CHAR 
341 4147 TAD M0331 
@342 7652 SNA CLA /Y*YES? 
9343 2327 1S2 TEST /YES, INCREMENT 
2344 8727 JMP | TEST /THEN EXIT 


/PROCESS POTENTIAL NON@EXISTANT OITSC ERROR 
8345 7208 NODISC., CLA 


346 6616 DE AC /READ DISC STATUS 

8347 7889 NOP 

@350 $151 OCA DOSTAT 

@351 4151 TAD DDSTAT 

B382 7012 RTR 

8353 7628 SNL CLA /NON“EXISTANT DISC ERROR? 
O384 5423 JMP I PNTR6 /NOSEXIT 

6355 41564 FAD PMELLA /YES, TYPE OUT HEADER 
B356 4483 JMS I PNTRY 

@387 4151 TAD DOSTAT 

B34G 4445 JMS I PNTR24 /TYPE OuT STATUS WORD 
8341 4458 JMS I PNTRSS /CReLP 

8362 7482 HLT /STOP 

83645 3562 JMP wi /NON-RECOVERABLE ERROR-RESTART 


2364 $862 PMEIT4A, MESSi1 
4338 DISPLAY STARTER ROUTINE 
8365 7288 DISS38, CLA 


366 6145 6145 ASET DISPLAY INITIAL CONOIITIONS TO @ 
8367 73538 CLA CLL CML RAR /SET AC TO 4888 

B378 6155 6155 /CLEAR BREAK FIELO REGISTER 

@371 7282 CLA 

@372 41576 TAD .+4 /GET STARTING ADDRESS OF 338 PROGRAM 
373 6165 6165 /LOAD Dac 

0374 7220 CLA 

8375 52205 JMP START#5 

8376 $161 PRO338 
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@46¢ a40g 
fBDISC OR DRUM EXERCISER 


vee enn ee rere dle imc 











0400 7208 DDEXER» CLA 
6481 6681 6681 /CLEAR EF AND DONE 

@402 1133 TAD SKIP 

G493 3487 OCA | PNTRS 

2404 7684 LAS 

0405 9135 AND K@81i@ 

2486 7648 SZA CLA /SUPPRESS DISK OR C8U.:? 
407 8423 JMP | PNTR6 /YES, EXIT 

2448 7624 LAS 

441 9104 AND K@202 

0442 7642 SZA CLA /BIT 4 SET? 

@443 5565 JMP DDLOOP /YES 

9444 4335 JMS DDSAVE /SAVE Pl STUFF 

445 6881 ION 

9416 4195 TAD K728@ 

04147 $815 pCa 15 

@428 4114 TAD BUFFS 

9421 3014 DCA 14 

9422 42390 TAD ,+6 

@423 4822 TAD DDOFELOD 

@424 3226 OCA ,+2 

@425 4424 JMS 1 PNTR?7 

2496 6281 COF 

@427 3414 OCA 1 14 /STORE DATA IN OUTPUT BUFFER 
0438 6201 cOF 

G431 2015 182 45 /DONE 

432 8225 JMP ,-5 /NO 

433 6882 1OF 

A434 43547 JMS DDREST /RESTORE PI STUFF 
6435 $235 DORITE, JMP , /WRITE DATA ONTO DISC OR ORUM 
0436 66014 6604 /CLEAR FLAGS 

@437 7684 LAS 

9448 @135 AND K@818 

0441 7649 SZA CLA /SUPPRESS DISC OR DRUM? 
9442 $423 JMP I PNTR6 /YES, EX{T 

2443 5243 DOREAD, MP , 7READ DATA FROM OISC OR DRUM 
6444 6681 6684 /CLEAR FLAGS 

8445 4335 JMS DOSAVE /SAVE Pl STUFF 

9446 6001 ION /TURN ON INTERRUPT 

@447 4114 TAD BUFFS A/OUTPUT BUFFER 

8459 3014 DCA 14 

@45i1 4113 TAD BUFF6 /INPUT BUFFER 

9452 3615 DCA 15 

9453 4125 TAD K7200 /COUNT 

454 3174 OCA DOCNTR 

9455 4264 TAD ,*7 

0456 422 TAD DOFELD 

@457 3262 DCA ,+#1 

2460 6201 CDF 

2461 1414 TAD 1 14 /COMPARE DATA OUT WITH DATA IN 
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8462 
B46S 
B464 
B465 
2466 
R467 
0476 
@471 
8472 
B478 


6474 
8475 
0476 
B477 
6580 
65@1 
8582 
9505 
8584 
2585 
G586 
6587 


25108 
8511 
@512 
8543 
6544 
8515 
8516 


9517 
8522 
2521 
0522 
6525 
B524 
B525 


8526 
0527 
0538 
@531 
@532 
85335 
8534 


/OM@1 EXERCISER = TAPE 1 





4415 
6281 
7449 
4425 
2174 
5260 
7604 
7812 
7630 


5585 
4424 
G123 
$022 
4162 
7041 
4022 
774@ 
8275 
6082 
4547 
5280 


4545 
$235 
4516 
3243 
5200 
4439 
4433 


4324 
3235 
4525 
$243 
5200 
4426 
4427 


4533 
$235 
4534 
3243 
5208 
4433 
A434 


PALIO 


CIA 
TAD 
cOF 
SZA 
JMS 
1S2 
JMP 
LAS 
RAR 
Sé.L 


JMP 
JMS 
AND 
DCA 
TAD 
CIA 
TAO 
SMA 
JMP 
1 OF 
JMS 
JMP 


1 415 


1 PNTRB 
DOCNTR 
718 


CLA 


elt 
I PNTR7 
K8O7¢ 
DOFELD 
FELD 


DOFELO 
SZA CLA 
gal 


ODREST 
ODEXER 


Vi64 0 24=MAR-74 


9149 


/G00D? 

/NO, DATA ERROR 
/DONE? 

/NO 


/CHANGE MEMORY FIELD? 


/NO 
/YES 


RESTORE PI STUFF 


/RMBSB DRUM EXERCISER SETUP ROUTINE 


RM@BEX, 


‘RMOSBRI, 


RM@BRE, 


TAD 
BCA 
TAD 
OCa 
JMP 
JMS 
JMS 


RMBBRI 
DORITE 
RMBBRE 
DORE AD 
ODEXER 


I PNTRAL 
I] PNTRI2 


/RFQ@B DISC EXERCISER SETUP ROUTINE 


RFOBEX, 


RFQBRI, 
RF@BRE, 


TAD 
OCA 
TAD 
DCA 
JMP 
JMS 
JMS 


RF @BRI 
DORITE 
RF OBRE 
DDREAD 
DDEXER 
I] PNTR9Y 


I PNTRIO 


/OF32 DISC EXERCISER SETUP ROUTINE 


DFS2EX, 


OF S2RI, 
DFS2RE> 


TAD 
DCA 
TAD 
DCA 
JMP 
JMS 
JMS 


DF S2R]I 
ODRITE 
OF S2RE 
DDREAD 
DDEXER 


I PNTR14 
I PNTRI5 
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/Dedt EXERCISER ~ TAPE 1 


2535 
S536 
2537 
2540 
0541 
9542 
2543 
8544 
8545 
8546 


0547 
65528 
@551 
9552 
8553 
8554 
8555 
9556 
9557 
8568 


0561 
2562 
8565 
8564 


@565 
0566 
0567 
0572 
8574 
8572 
8573 
8574 
2575 
8576 


8682 
C681 
682 
2685 
26684 
2685 
2686 
2687 


Q288 
1144 
3564 
4145 
$562 
4456 
3363 
4002 
3564 
§735 


ZO82 
1561 
$144 
4562 
3145 
4563 
3456 
4364 
308¢ 
§747 


8088 
8288 
8282 
2088 


7694 
g1i3e2 
7640 
5373 
4243 
7448 
4235 
3375 
7402 
5208 


G68 


7282 
$175 
1576 
6766 
4163 
$435 
5687 
G2B2 


PAL12 Vidi 


-_~ 


24-mMAR- 4 aged 


/DISC-DRUM SAVE SUBROUTINE 


POSAVE, 


8 

TAD 
DCA 
TAD 
OCA 
TAD 
OCA 
TAD 
DCA 
JMP 


AC 

DDAC 
LINK 
DDLINK 

1 PNTR4B 
DDIB 

8 

DDPC 

1 ODSAVE 


/SAVE AC 
/LINK 
/MEMORY FIELD 


/AND LOC @ 


/DISC-DRUM RESTORE SUBROUTINE 


DDREST, 


BOAC, 
DOLINK, 
BPOIB, 
PDPC, 


/DISC-DRUM LOOP ROUTINE 


DDLOOP, 


#602 


ADECTAPE STARTER ROUTINE 


BDECTAP, 


My 

TAD 
OCA 
TAD 
DCA 
TAD 
DCA 
TAD 
DCA 
JMP 


2 
8 
8 
8 


LAS 
AND 
SZA 
JMP 
TAD 
SKP 
TAD 
OCA 
HLT 
JMP 


CLA 
DCA 
TAD 


OTLA 


TAD 
DCA 
JMP 


DDAC 

AC 

DOL INK 
LINK 
DOIB 

] PNTR48 
DDPC 

g 

1 DDREST 


KZ1i8e 
CLA 
275 
DOREAD 


DORITE 
o*1 


ODEXER 


LOOK 
KZ604 


OTPNTR 
1 PNTRYL6 
L ta 


START+2 





7RESTORE SAVED AC 
/LINK 

/MEMORY FIELD 
/AND LOC @ 


/L OOP ON READ? 
/NO, WRITE 
/YES,. READ 


7JMS INSTRUCTION IS STORED HERE 


/ZERO BLOCK SPECIFIER 
/LOAD "A" WITH "GO,REVERSE MOVE, ENABLE+ CLEAR" 


/SET UP RETURN FROM P.I. 





se alae fa ee Ped NS a ee te ee 
‘ 
te sarees tank aieienbaaM nn em LLMNOND Fre 
: 
4 
1 
t 
t 





/OM@1 EXERCISER - TAPE 1 PALAG =V444 0 24=MARH74 Cae widen 


/MAGTAPE STARTER ROUTINE 


9618 7286 MAGTAP., CLA 


0611 3150 DCA RECORD /CLEAR RECORD COUNT 
2642 1110 TAD K@014 

6643 6711 MTCR /SKIP IF MAG TAPE CONTROL READY 

8614 7402 MTHLT1, HLT 

86145 6716 MTLC /LOAD COMMAND REGISTER WITH "REWIND, ENABLE" 
@616 6721 MTTR /SKIP IF MAG TAPE UNIT READY 

86147 7482 MTHLT2> HLT 

9620 7220 CLA 

0621 6722 MTGO /G0 

B622 4164 TAD MTPNTR 

@623 3437 DCA I PNTR&B 

8624 5625 JUMP I v.44 

8625 8203 START+3 


/RMBS DRUM STARTER ROUTINE 


8626 8204 START+4 

0627 7281 RMOB, CLA IAC 

8630 6624 DRFS /LOAD SEGTOR COUNTER TO 4 
@631 4114 TAD BUFFS 

G632 6685 ORCW /LOAD CORE ADORESS., WRITE 
@633 4141 TAD ORUMAD 

634 6615 ORTS /LOAD ORUM ADDRESS, INITIATE XFER 
6635 1165 TAD RM@BPR 

$636 3432 OCA ! PNTRLS 

@637 4185 TAD K72008 

@649 3764 OCA 1 PNTR4&6 

9641 1785 TAD J PNTR47 

9642 3763 DCA 1 PNTR45 

8643 5626 JMP I RM@Er4 


/DF32 DISC STARTER ROUTINE 
8644 7244 BF S2, CLA CMA RAL 


2645 $475 DCA I K7758 /SET UP WC. 

0646 1114 TAO BUFFS 

@647 3476 DCA {| K7754 /SET UP CA, 

@650 4137 TAD DISCEA 

G651 6615 DEAL /LOAD CONTROL WITR DISC EXTENDED ADDRESS 
8652 7202 CLA 

6653 1148 TAD DISCAD 

2654 6685 DMAW /LOAD DISC ADDRESS AND WRITE 
R655 1166 TAD DF S2PR 

G656 3432 DCA | PNTRIS 

657 4586 TAD UMPCON 

G6608 3/84 DCA 1] PNTR46 

G@661 5241 JMP RMBB+12 


© © © 
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8662 
8665 
8664 
8665 
B666 
8667 
8678 
8671 
8672 
6673 
8674 
8675 
8676 
8677 
8728 
8781 
8782 
8785 
8764 
0725 


87286 


0787 
0712 
8711 
8742 
8743 
8744 
0745 
8746 
8717 
8728 
0721 
9722 
9723 
0724 
8725 
3726 
8727 
8738 
8731 
8732 
8733 
8734 


2735 


7244 
3475 
41144 
3476 
4143 
6615 
4142 
6643 
114g 
6685 
4167 
3432 
4133 
3703 
4785 
3704 
5626 
2626 
2627 
2624 


5461 


e000 
4432 
6621 
7449 
5787 
7604 
7026 
7510 
53314 
7280 
6616 
7000 
3154 
4375 
4483 
4154 
4445 
445g 
7604 
7700 
7402 
5707 


LOB 


fRE GE 
RF GES, 


PNTR45, 
PNTR46, 
PNTR47, 


JMPCON, 


PAL LG Vi4d 


-~ 


24-MAR@74 9129 PACE 


DISC STARTER ROUTINE 


CLA CMA RAL 
DCA | K7758 
FAD BUFFS 
OCA | K7754 
TAD INTERN 
DIML 

TAD TRACK 
DXAL 

TAD DISCAD 
DM AW 

TAD RF@BPR 
DCA 1 PNTRLS 
TAD SKIP 

OCA 1 PNTR45 
TAD 1 PNTR47 


DCA I PNTR46 


JMP {| RMZBH4d 
EX1T-2 
EX{T-1 
EXIT-4 


JMP I PNTR48 


ASET UP we 
ASET UP CA 
/SET UP INTERRUPT ENSBLES 


/LOAD DISC EXTENDED ADDRESS 
/LOAD DISC ADDRESS ANO WRITE 


/SET UP SKIP CHAIN 


/RETURN TO START#4 


/OF32 O1SC WAIT FOR FLAG AND NO ERRORS SUBROUTINE 


DFS2WTs 


WAL T4, 


g 

JMS 1 PNTRLS 
DF SE 

SKP 

JMP 1 OF S2WT 
LAS 

RTL 

SPA 

JMP HALT4=2 
CL & 

DEAC 

NOP 

OCA DDSTAT 
FAD PMES1Ii 
JMS ~ PNTRE 
TAD DDSTAT 
JMS | PNTR24 
JMS | PNTRSS 
LAS 

SMA CLA 

HLT 

JMP | DFS2WT 


/WAIT FOR OISC FLAG 
/ANY ERRORS? 

/YES 

/NO 


/PRINT ERRORS? 
/NO 


/READ STATUS 


/TYPE OUT HEADER 


/TYPE OUT STATUS WORD 
ACRLFE 


/HALT ON ERROR? 
/YES 
SEXIT 


/OF32 DISC WRITE SUBROUTINE 


DF S2wWR, 


g 





: ; 
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ee 
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/SET UP W. C, 


/SET UP C,A. 

/COMBINE DISC CORE MEMORY FIELD 
AND DISe EXTENDED ADDRESS 

/AND TRANSFER To DISC CONTROL 


/LOAD DISC ADDRESS AND WRITE 
“WAIT FOR DISC FLAG 

/ANY ERRORS 

/YES, REPEAT FUNCTION 

/EXTT 


/SET UP we 


/SET UP CA 

/COMBINE DISC CORE MENORY FIELD 
7AND DISC EXTENDED ADDRESS 

/AND XFER TO DISE CONTROL 


/LOAD0 DISC ADDRESS AND READ 
/JWAIT FOR DISC FLAG 

/ANY ERRORS? 

YES, REPEAT FUNCTION 

ZEXIT 


/GO, REVERSE, MOVEs ENABLE 


/SET UP BLOCK NUMBER TO GO TO FOUND 


/ SEARCH, NORM,» REV, ENABLE 
/LOAD A 

/CLEAR B 

/WAIT FOR DECTAPE FLAG 
/READ B 


/END ZONE? 
/NO 

/YES, TURN 
J AROUND 


8736 7280 CLA 
@737 1185 TAD K7200 
9748 3475 OCA 1 K775@ 
67461 4114 TAO BUFFS 
2742 3476 DCA I K7754 
9743 4822 TAD DOFELD 
@744 4137 TAD OISCEA 
0745 6615 DEAL 
0746 7282 CLA 
@747 1148 TAD DISCAD 
@752 6685 OMAW 
9751 4387 JMS DF32wT 
@752 6621 OFSE 
2753 5336 JMP DOF S2WR4 
0754 53735 JMP 1 DF32WR 
/DF32 DISC READ SUBROUTINE 
@755 98880 DFS32RD, @ 
8756 7282 CLA 
9757 4195 TAD K7200 
8768 3475 OCA 1 K7758 
8761 £113 TAD BUFF6 
9762 3476 DCA 1 K7754 
8763 $822 TAD ODFELD 
@764 4137 TAD DISCEA 
97465 6615 DEAL 
0766 7208 CLA 
8767 1148 TAD DISCAD 
6772 6683 OMAR 
9771 43587 JMS OF 32wT 
@772 6621 OFSE 
0773 5356 UMP OF 32RD¢4 
8774 5755 UMP I OFS2RD 
0775 39862 PMESi1, MESS1i1i 
9776 9684 K@604, 9604 
/OMBL ~ TAPE2 
14200 #1290 
/DECTAPE SEARCH ROUTINE 
1000 8808 SEARCH: @ 
19@1 1546 TAD FOUNDe4 
49@2 3582 OCA I K7755 
19893 4555 TAD K@614 
1284 6766 OTLA 
49@5 6774 OTLB 
1006 4435 JMS I PNTRL6 
1927 6772 DTRB 
4818 7886 RTL 
4@11 7782 SMA CLA 
4@12 5216 UMP 44 
1913 4554 TAD KB608 
4014 6764 OTXA 
4215 5206 JMP SEARCH*6 





O 
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1816 
1417 
1826 
1g2i 
La2e 
1925 
1224 
i225 
1826 
1827 
1832 
1631 
1832 
1235 
1834 
1835 
1836 
1637 
1848 
1241 
1842 
18435 
1244 
1245 
1946 


1947 
1658 
1851 
1852 
10558 
1054 
1855 
L256 
1857 
1g6@ 
1861 
1262 
12635 
1864 
1865 
1266 


1867 
1878 
18714 
1a7e 
1673 
1874 
1875 
1876 
1277 


4772 
7708 
5223 
4327 
5283 
6764 
7206 
7006 
7258 
4545 
7041 
4175 
745g 
5243 
7044 
7429 
4352 
760228 
4103 
6764 
5206 
7620 
5244 
6764 
5680 


G220 
4200 
4337 
5259 
4628 
6774 
4350 
6764 
4105 
3504 
4187 
3592 
4387 
4337 
5259 
5647 


BBBG 
A2@g 
4537 
5272 
4828 
6774 
4551 
6764 
4125 


LOCSBED, 


/DECTAPE READ SUBROUTINE 


BYREAD, 


PAL LG Vii 


OTRB 

SMA CLA 

JMP . +3 

JMS OTWAIT 
JMP SEARCKSS 
DTRA 

RTL 

RTL 

CLA 

TAD FOUND 
CIA 

FAD LOOK 

SNA 

JMP LOCBED 
CIA 

SNL 

TAD KO@B2 
SNL CLA 

FAD KO488 
DTXA 

JMP SEARCH*6 
SNL CLA 

JMP rt) 

DTXA 

JMP I SEARCH 


8 

JMS SEARCH 
JMS DTERR 
JMP ,-2 

TAD DTFELD 
OTLB 

TAD KH156 
DTXA 

TAD K7208 
DCA | K7754 
TAD BUFF 4 
DCA 1 K7755 
JMS OTWAIT 
JMS DTERR 
JMP DTREAD#d 
JMP | OTREAD 


Wis 
fet 
+? 

& 


24=-MAR~-4 


READ STATUS B 

A/DECTAPE ERROR 

ZNO 

ZYES, STOP TRANSROT™- Fic 
TRY SEARCHING AGe?’ 
/READ A 

fMOVI DIRECTION 

/BlT INTO LINK 


/GET BLOCK NUMBER Fi. ND 


/CURRENT BLOCK? 

/YES, CRECK DIREGTI.N 

NO, TAKE 2'§ COMPLE MER? 

/LINK IS 1 IF BKWE AND NOT Ai DR LOwER “~4AN BLOCK 
/ADD TWO TO ENABLE TURN AROUNS 
‘TURN AROUND (3 BEYOND)? 

“YES 

/CLEAR FLAG 

AWAIT FOR NEXT FLAG 

/FOUND BLOCK FORWARD? 

/NO 

/YES, CLEAR FLAGS 

JEXTT 


/SEARCKH OUT BLOCK 


/LQOA0 MEMORY FIELD REGISTER 
/CHANGE FROM SEARCH TO READ DATA CONT 
/SET UP we 


/SET UP CA 

/WAIT FOR DECTAPE FLAG 
/ERRORS? 

/YES, REPEAT FUNCTION 
EXIT 


*GECTAPE WRITE SUBROVTINE 


DTRITEs 


8 

JMS SEARCH 
JMS BOTERR 
JMP we 
TAD OTFELOD 
DYLB 

TAD KG15@ 
DTXA 

TAD K72080 





ASEARCH OUT BLOCK 


/LOAD MEMORY FIELO REGISTOR 


/CHANGE FROM SEARCH TO WRITE DATA CONT, 
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/SETUP WC 


/SET UP CA 

/WAIT FOR DECTAPE FLAG 
ERRORS? 

/YES REPEAT FUNCTION 
SEXIT 


/SUBROUTINE TO WAIT FOR DECTAPE FLAG AND NO ERRORS 


/WAIT FOR SOME FLAG 
READ STATUS A 


/CLEAR GO 
/ERRORS? 
/NO 


/PRINT ERRORS? 
/NO 
/READ STATUS 


/TYPEOUT HEADER 


/TYPE OUT STATUS WORD 


*/CReLF 


/HALT ON ERROR? 
/YES 


OON'T SKIP IF ANY ERROR 


/BLOCK FOUND 


“SEARCH TO READ DATA CONTINUOUS 
/SEARCH TO WRITE DATA CONTINUOUS 


141490 $3581 DCA 1 K7754 

4101 £106 TAO BUFF A 

14192 3582 OCA | K7755 

14103 4307 JMS DITWAIT 

1184 4337 JMS DTERR 

11@5 5272 JUMP OTRITE%4 

1126 5667 JUMP | DTRITE 
/EXIT WITH TRANSPORT STOPPED 

41@7 8809 OTWAIT. @ 

4118 4435 JMS 1 PNTRL6 

41411 6761 DTRA 

4112 01084 AND K#280 

41143 4553 TAD KOO83 

1114 6764 OTXA 

14115 6772 OTRB 

4116 7782 SMA CLA 

4117 §787 JMP | DOTWAIT 

1128 7684 LAS 

4121 7086 RTL 

4122 7736 SPA CLA 

4123 8333 UMP HALTi-2 

4124 6772 OTRB 

1125 3146 OCA DTSTAT 

4126 4347 TAD PMES12 

4127 4483 JMS 1 PNTRG 

41430 4146 TAO DTSTAT 

141431 4445 uMS 1 PNTR24 

1132 4459 JMS I PNTRS3 

4133 7684 LAS 

1134 7782 SMA CLA 

4135 7482 MALT4, HLT 

4136 8787 JMP I OTWAIT 
/DECTAPE ERROR ROUTINE, 

1137 8882 OTERR, @ 

11428 7208 CLA 

1141 6/772 DTRB 

1142 7782 SMA CLA 

14143 2337 1S? DTERR 

14144 5737 JMP 1 DTERR 

1145 9802 FOUND, @ 

1146 4145 nt 

4147 3874 PMES42, MESS12 

1158 #138 KBZ138, 9132 

4151 6150 KG150, 9152 

1152 2882 K@2Q02, g882 

1153 9203 K2003, 8283 








© 
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0 EXERCISER = TAPE 14 PALO Vidi  24=MAR~+4 Be. 2 4 a : 


panatbatonese melon 974 





4134 @696 KG6GG: 8686 JREVERSE, 66 : 
| 4155 8644 KGG614, 6646 SEARCH, NORMA:. ROY a 
1186 2493 MESS46, 2483 raeu> 
4157 6576 4576 £528 
1160 4264 ABGA “SP .0 
| 1161 9124 bL24 Ast 
14462 8148 2146 /A:SP 
4163 9522 A522 /EoR 
4164 2247 22k? AR O 
1165 2242 2246 /ReSP 
, 4166 4116 1146 /eN 
; 1167 4082 4882 /SP5B 
. 14178 @116 8116 SAN 
41471 4542 134g /K» SP 
14172 4882 4000 /SP,END 


| 
| 14200 #1200 
| /MAGTAPE READ SUBROUTINE 


| 42@0 @980 MTREAD, @ 





: 42@1 4240 JMS REWIND AREWIND TAPE 
| 1292 4436 JMS I PNTRS?7 /SPACE TO BEGINNING CF SECORD 
1293 4356 TAD KB626 
1204 6746 MTLC /LOAD CM WHITH "ODD: SCH READ, ER GLE, 628" AND CLEAR FLAGS 
1295 7262 CLA 
4206 4195 TAD K7288 
4207 3477 DCA | K7752 ASET UP We 
1248 4141 TAD BUFFS 
1241 9569 DCA 1 K7753 /SET UP CA 
1242 4821 TAD MTFELD 
4243 6722 MTGO /OAD EXTENDED FIELO REGISTER; %0 
| 4214 4266 JMS MTWAIT AWAIT FOR MT FLAG AND NO ERRORS 
! 1245 4255 J4S MTERR ERRORS? 
| ) 4216 $261 JMP MTREADeY /YES, REPEAT FUNETION 
' | 1217 3608 JMP 1 MTREAB ANO, EXIT 


/MAGTAPE READ-COMPARE SUBROUTINE 


1228 8868 RDCOMP, @ 


: 4221 4242 JMS REWIND AREWIND TAPE 

4222 6436 JMS | PNTR4? /SPACE TQ BEGINNING OF RECORD 

4223 4355 TAD KE636 

1224 6716 MTLC /LOAD CM WITH “ODD, 704,86 COMP, CNABLEG@G" °°" CLEAR FLAGS 
1225 7206 CLA 

i 4226 4195 TAD K7 260 

1227 3477 OCA 1 K7752 /SET UP WC 

| 1230 git2 TAD BUFF2 

| 1231 3598 OCA | K7753 /SET UP GA 
4232 4221 TAD MTFELD 

4233 6722 MTGO /LOAD EXTENDED FIELD REGISTER, Go 

| 1234 4266 JMS MTWAIT /WAIT FOR MT FLAG ANDO NO ERRORS 

| 4235 4255 JMS MTERR /ERRORS? 


1236 Se2id JMP RDCOMP+1 /YES,REPEAT FUNCTION 
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1237 8620 JMP J ROCOMP “NO, EXIT 
/MAGTAPE REWIND SUBROUTINE (ACTUALLY SPACE REVERSE) 

1242 9882 REWIND» @ 

1241 1254 TAD K2676 

1242 6716 MTLC /LOAD CM WITH "O0D.7CH,SPACE REVERSE,ENABLE, 820" AND CLEAR FLAGS 

1243 7282 CLA 

1244 6722 MTGO /SET GO 

4245 3477 DCA 1 K7752 /SET UP W.C. 

1246 4266 JMS MTWAIT AWAIT FOR MT FLAG 

1247 6786 MTRS /READ STATUS 

1250 70086 RTL 

1251 7700 SMA CLA /BOT? 

14252 §241 JMP REWIND#!4 /NO, TRY AGAIN 

1253 5642 JMP 1 REWIND /YES, EXIT 

4254 @676 KQ676, 8676 /000,7CH,SPACE REVERSE.ENABLE,» 888 
/MAG TAPE ERROR ROUTINE 

1255 9800 MYERR, @ 

1256 6726 MTRS /READ STATUS 

1287 7589 SMA /ERRORS? 

1268 $263 JMP +3 /NO 

1261 @136 AND Ki8@a /YES 

14262 7642 SZA CLA /BOT? 

1263 2255 1SZ MTERR /YES, NO ERROR 

1264 7200 CLA 

4265 5655 JMP 1 MTERR 
/SUBROUTINE TO WAIT FOR MAGTAPE FLAG AND NO ERRORS 
/EXILY WITH TRANSPORT STOPPING 

1266 @088 MTWAIT, @ 

1267 4437 JMS 1 PNTR4B /WAIT FOR MAGTAPE FLAG 

1278 4255 JMS MTERR /JREAD MAGTAPE STATUS 

1271 74409 SKP /ERRORS? 

1272 5542 JMP HALT2¢2 /NO 

1273 7684 LAS 

1274 7086 RTL 

4275 7718 SPA CLA /PRINT ERRORS? 

1276 83596 JMP HALT2-2 /NO 

1277 6786 MTRS 

13@8 3147 DCA MTSTAT 

43G1 1326 TAD PMES13 

14302 4483 JMS I PNTR4G /TYPE OUT HEADER 

14303 41147 TAD MTSTAT 

4394 4445 JMS 1 PNTR24 /TYPE OUT STATUS WORD 

1385 4452 JMS I PNTR33 /CRLF 

1326 7684 LAS 

4307 7782 SMA CLA /HALT ON ERROR? 

4310 7482 HALT2, HLT JYES 
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/b-edd EXERCISER = TAPE 1 PAL18 Vi4i 
4341 $666 JMP - MTWAIT 
1342 6712 mTAr /CLEAR FLAGS 
4343 4727 JMS I PNTR43 
4314 6881 LON 
1345 6721 MTTR /WAIT FOR 
4346 53515 JMP jot /TAPE TRANSPORT READY 
4317 6882 {OF 
4320 4732 UMS | PNTR44 
4321 5666 JMP [| MTWAIT 


1322 82882 OTAC; 0 
1325 6888 OTLINK, @ 
1324 6002 OFIB, B 
4325 8886 OFPC; Q 
1326 $126 PMES13, MESS15 
1327 2132 PNTR4&5, MTSAVE 
4338 2144 PNTR44, MTREST 


A/DECTAPE SAVE SUBROTINE 
1331 988208 DTSAVE. @ 


4332 4144 TAD AC /SAVE AC 

4333 3322 DCA OTAC 

4334 4145 TAO LINK /LINK 

1335 3523 OCA DTLINK 

1336 4456 TAD 1 PNTR4&B /MEMORY FIELD 
14337 3324 BCA DTIB 

4348 1209 TAD @ /AND LOC @ 
4341 $3525 DCA DTPC 

141342 $8731 JMP 1 DTSAVE 


/DECTAPE RESTORE SUBROUTINE 
1343 882 QTREST, @ 


4344 4322 TAD OTAC /RESTORE SAVED ACG 

4345 $144 OCA AC 

1346 4523 TAO DTLINK /LINK 

4347 $3145 DCA LINK 

4358 4524 TAD DTIB /MEMORY FIELD 

4351 3456 OCA I PNTR4S2 

4352 43525 FAQ DTPC /AND LOC @ 

4353 $089 DCA @ 

4354 §743 JMP 1! DTREST 

1355 9636 K2636, 6636 /000, 7CH READ COMPARE, ENABLE, 802 
1356 @626 K@626, $626 /O000, 7CH, READ, ENABLE: 886 
4357 844i MESS47, B4i1 /Del 

1360 2583 2323 S.C 

4361 4047 4947 /5P,0 

1362 2246 2242 /R»oSP 

4363 9422 9422 /O-R 

4364 2515 2545 /UoM 

1365 4084 40204 /SP;0 

1366 9124 9124 ArT 

1367 61408 9142 /A+SP 


1370 @522 @522 7E»R 











ment ' 
é 


He ta ale 


/OMBL EXERCISER = TAPE 1 


1371 
1372 
1375 
1374 
1375 
1376 
1377 


1488 
14@1 
1482 
1483 
1484 
145 
4486 
1487 
1418 
1441 
1412 
1445 
1444 
1415 


1446 
1447 
1428 
1424 
1422 
1425 
1424 
1425 
1426 
1427 
1432 
1431 
1432 
1435 


1434 
1435 
1436 
1437 
1440 
1441 
1442 





2247 
2240 
4116 
4202 
6116 
1342 
4208 


4428 


G08 
7280 
4822 
4122 
6624 
7204 
4113 
6603 
4441 
6645 
4234 
6621 
5281 
5608 


G008 
7200 
4022 
i122 
6624 
7281 
4114 
6605 
4141 
6645 
4234 
6624 
5247 
5616 


Beoe 
4432 
6624 
744¢ 
5634 
7604 
7006 


#1482 


PALI viéi 


2217 
22468 
1116 
4282 
G116 
1542 
4522 
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“RD 
/RsSP 
/1>N 
f5P,.B 
/AON 
/K»SP 
/SP,END 


/RM@B DRUM READ SUBROUTINE 


RM@BRO, 


@ 

CLA 

TAO DOFELD 
TAD KSOOB 
ORFS 

CLA IAC 

TAD BUFFS 
ORCR 

FAD DRUMAD 
ORTS 

JMS ORUMWT 
ORSE 

JMP RMBBROYL 
JMP 1 RMBBROD 


/COMBINE MEMORY FIELD 
7AND NUMBER OF SECTORS 
/TO DRUM CONTROL 


/L0aD CORE MEMORY ADORESS, READ 


/LOAD DRUM ADDRESS REGISTER, INITIATE XFER 
/WAIT FOR BONE FLAG AND NO ERRORS 
ERRORS? 

AYES, REPEAT XFER 

/NO 


/RMBB ORUM WRITE SUBROUTINE 


RMBBWR, 


/DRUM WAIT FOR FLAG AND 


DRUMWT> 


g 

CLA 

TAD DDFELD 
TAD K380@ 
DRFS 

CLA IAC 

YAD BUFFS 
BRCW 

TAD ORUMAD 
DRTS 

JMS ORUMWT 
ORSE 

JMP RMOBWRet 
JMP | RM@BWR 


+, 

JMS { PNTR&IS 
DRSE 

SKP 

JMP | DRUMWT 
LAS 

RTL 





/COMBINE MEMORY FIELD 
/AND NUMBER OF SECTORS 
/TQ CONTROL 


/LOA0 CORE MEMORY ADDRESS, WRITE 


/LQAD DRUM ADDRESS REGISTER, INITIATE XFER 
/WAIT FOR DRUM FLAG AND NO ERRORS 

/ERRORS? 

/YES, REPEAT XFER 

/NO 


NO ERRORS SUBROUTINE 


“WATT FOR DRUM FLAG 
ZANY ERRORS 


/NO 
JYES, PRINT ERRORS? 


Ne 
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er, EXERCISER » TAPE i 


1443 
1444 
1445 
1446 
1447 
1452 
1451 
1452 


1453 
1454 
1455 
1456 
1457 
1468 


1461 
1462 
1463 
1464 
1465 
1466 
1467 
1478 
1471 
1472 
1475 
1474 
1475 
1476 
1477 
1588 


15@1 
15¢2 
1583 
1584 
1585 
1526 
1587 
1518 
1541 
1512 
1513 
1514 
15415 
1516 
1517 
15208 


7918 
§255 
7288 
6612 
S191 
4,563 
4483 
4151 


4445 
4458 
7684 
7/88 
742 
5634 


LL: 
41285 
3475 
4113 
3476 
4822 
4143 
6615 
4142 
6643 
4140 
6683 
4324 
6621 
$661 
5262 


goog 
1105 
3475 
4114 
3476 
4022 
4143 
6615 
4142 
6643 
4149 
6695 
4324 
6624 
5781 
5302 


HALTS, 


PALL Vid 


SPA 

JMP HALTS3=2 
CLA 

DREF 

HCA DDSTAT 
TAD PMES14 
JMS | PNTR4G 
FAD DOSTaT 


JMS 1 PNTR24 
JMS | PNTRSS 
LAS 

SMA CLA 

wLT 

JMP 1 DRUMWT 


can, Se ~~ 


24-MAh +4 9119 PAGE i-18 
/PRINT ERRORS? 


/READ STATUS 


/TYPE OUT HEADER 


/TYPE OUT ERROR STATUS 
/CRLF 


/RALT ON ERROR? 
/YES 


/RF@B DISC READ SUBROUTINE 


RF@SRD» 


g 

TAD K7200 
DCA I K775@ 
TAO BUFFS 
OCA I K7754 
JAD DOFELD 
FAD INTERN 
DIML 

TAD TRACK 
DXAL 

FAD DISCAD 
OMAR 

JMS RFBEWT 
DF SE 

JMP | RF@SRD 
JMP RF OSRO*L 


/SET UP WC 


/SET UP CA 

/COMBINE DISC CORE MEMORY FIELD 
/AND INTERRUPT ENABLES 

7ZAND TRANSFER To DISC CONTROL 


/LOAD DISC EXTENDED ADDRESS 


LOAD DISC ADDRESS AND READ 
/WAIT FOR DISC FLAG 

/ANY ERRORS? 

/NOQ 

/YES, REPEAT FUNCTION 


/RF@B DISC WRITE SUBROUTINE 


RFBSWR, 


g 

TAD K7200 
DCA I K7758 
TAD BUFFS 
DCA 1 K7754 
FAD DOFELD 
TAD INTERN 
DIML 

TAD TRACK 
DAAL 

TAD DISCAD 
DMAW 

JMS RF@BWT 
OF SE 

JMP | RF@SBWR 
JMP RF@BWRed 


SET UP WC 


/SET UP CA 

/COMBINE DISC CORE MEMORY FIELD 
/AND INTERRUPT ENABLES 

/AND TRANSFER TO DISC CONTROL 


ACAD DISC EXTENDED AUDRESS 


/LOAD DISC ADDRESS AND WRITE 
AWAIT FOR DISC FLAG 

ANY ERRORS 

/NO 

SLES 


/RFGBB DISC WAIT FOR FLAG AND NO ERRORS SUBROUTINE 
/( TRANSFERS CONTROL TO "OFS2WT" ITF ANY ERRORS) 














/OMBi EXERCISER © TAPE 1 


i521 
1522 
1525 
1524 
1525 
1526 
1527 
1530 
1531 


1532 
1533 
1534 
1535 
1536 
1537 
1548 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1552 
1551 
1552 
1553 
1554 
1555 
1536 
1557 
1568 
1561 
1562 
1563 
1564 
1565 
1546 
1567 
15708 
1571 
1572 
1573 


1682 
1601 
1682 





goa 
4432 
6621 
5724 
4321 
3731 
5730 
a714 
0787 


9802 
7280 
4364 
6716 
7280 
4105 
$477 
1112 
3588 
4021 
6722 
4447 
2158 
§352 
4449 
5333 
4441 
7410 
5732 
4448 
4436 
7240 
4152 
3150 
5334 
3128 
8746 
2493 
6261 
4004 
9503 
2481 
2025 
7780 


1680 


7280 
6/64 
1133 


RFOSWT, 


/MAGTAPE WRITE ROUTINE 


MTRITEs 


PMES414, 
KG746, 
MESS@2, 


#1602 


PAL4G vidi 


P, 

JMS | PNTRLS 
DFSE 

JMP | RFOBWT 
TAD RF@BWT 
OCA [ .+3 
JMP [ .#4 

OF S2wt +5 

OF S2wT 


8 
CLA 
TAD K@746 
MTLC 

CLA 

TAD K7288 
DCA 1 K775@ 
TAD BUFF2 
OCA I K77585 
TAD MTFELD 
MTGO 
JMS 
1S2 
JMP 
JMS 
JMP 
JMS 
SKP 
JMP 
JMS 
JMS 
CLA 
FAD 


I PNTRS2 
RECORD 
2+3 

I PNTRLO 
MTRITESS 
1 PNTR2@ 


I MTRITE 
I PNTRIS 
I] PNTRL? 
CMA 
RECORD 
DCA RECORD 
JMP MTRITE*2 
MESS14 

G746 

2483 

68464 

4094 

8523 

2484 

2285 

7782 


/DECTAPE EXERCISER 


OTEXER, 


CLA 
DIXA 
TAD SKIP 





24-MAR=72 9:19 PAGE 1°19 
AWAIT FOR DISC FLAG 

JANY ERRORS? 

/NO 

/YES 

/SAVE "Pe" 

/TRANSFER CONTROL TC 

/DDF 32 ERROR TYPEOUT 


/LOAD CM WITH "000,7CH,3 IN, GAP,WRITE,8@8" AND CLEAR FLAGS 


SET UP We 
/SET UP CA 


/LOAD EXTENDED FIELD REGISTER, GO 
/WAIT FOR MT FLAG AND NO ERRORS 
AINCREMENT NUMBER OF RECORDS 


44696 RECORDS, 
ASTART OVER 
ZANY ERRORS 


REWIND TAPE 


/NO,. EXIT 
/YES, REWIND TAPE 
/SPACE FORWARD TO BEGINNING OF THIS RECORD 


ADECREMENT RECORD COUNT 
/TRY AGAIN 


/000, 7CH.s WRITE. ENABLE, 898 
“TC 

Bel 

4SP,D0 

7E2C 

AToA 

APOE 


/?sEND 


/CLEAR EF AND OTF 


© 
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7 [OT Peiesthemmcacaneemetee eerste nines fait tah 


16835 
1694 
1685 
L626 
1687 
1612 
2624 
1642 
1613 
1644 
1645 
1616 
1647 
1620 
1621 
1622 
1625 
1624 
1625 
1626 
1627 
1632 
1631 
1632 
16335 
1634 
1635 
1636 
1637 
1642 
1641 
1642 
1645 
1644 
1645 
1646 


1647 
1658 
1654 
1652 
16553 
1654 
1655 
1656 
1687 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 


'@) EXERCISER = TAPE 


3326 
7684 
gi24 
764f 
5423 
4457 
6001 
4105 
3044 
4106 
3018 
4224 
4020 
3222 
4442 
6204 
3418 
6204 
a011 
8221 
4175 
4344 
3175 
7300 
4175 
4120 
7630 
5231 
6282 
4469 
4443 
6764 
4444 
4567 
6764 
4457 


6004 
4186 
3042 
4187 
S11 
4195 
317¢ 
4265 
4820 
32614 
6281 
4412 
7044 
tapes 
6201 
7442 
4512 


P&G Vi4d 


OCA OTDATA*6 
LAS 

AND K@04@ 
SZA CLA 

JMP J PNTR6 
JMS I PNTR4&{ 
TON 

TAD K726@ 
DCA il 

FAD BUFFY 
NCA 10 

TAD .+6 

FAD DTFELO 
DCA ,*2 

JMS | PNTR24 
CDF 

OCA 1 12 

CDF 

1s2@ ii 

JMP ,=5 

TAD LOOK 

TAD KBOBIA 
DCA LOOK 

Cha C&L 

TAD LOOK 

TAD M2786 
S#_ CLA 

JMP 1-5 

10OF 

JMS 1 PNTR42 
JMS I PNTR22 
DIXA 

JMS | PNTR2ZS 
TAD KOB84 
BTXA 

JMS 1 PNTR44 


ION 

FAD BUFFS 
BCA 16 

TAD BUFF 4 
OCA if 

TAD K7280 
OCA DYTCNTR 
TAD: gt? 
TAD DTFELD 
OCA ,*i 
CDF 

TAD 1 18 
CIA 

TAD I ii 
cOF 

SZA 

JMS OTDATA 


24-MAN 4 


am 


9'19 PAGE i-26 


/SUPPRESS DECTAPE? 
/YES, EXIT 
SAVE PI STUFF 


/STORE DATA IN OUTPUT BUFFER 


/DONE 
/NO 


/INCREMENT BLOCK BY 53 


/RESTORE P! STUFF 

/WRITE DATA ONTO DECTAPE 
/CLEAR FLAGS 

AREAD DATA FROM DECTAPE 
/STOP TAPE, CLEAR ENABLE AND 
ACLEAR FLAGS 

/SAVE PI STUFF 


/TURN ON INTERRUPT 
/OUTPUT BUFFER 
/INPUT BUFFER 


/COUNT 


/COMPARE DATA OUT WITH DATA IN 


/GOOD? 
/NO, DATA ERROR 











/OM@i EXERCISER = TAPE i 


1678 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1766 
1761 
1782 
1703 
1764 
1785 
1796 
1787 
1712 
1711 


1742 
1743 
1744 
1745 
1746 
1747 
1728 
1721 
1722 
1725 
1724 
1725 
1726 
1727 
1738 
1731 
1732 
17335 
4734 
1735 
1736 
1737 
1740 
1742 
1742 
1743 
1744 
1745 
1746 
1747 
1758 
1751 
1752 


2178 
6261 
6022 
4468 
7604 
7012 
7632 
5200 
4442 
@123 
3228 
4162 
7044 
4220 
7740 
5300 
5200 
g223 


@00¢g 
7604 
9183 
7648 
6561 
6882 
76416 
5335 
4566 
4493 
4028 
7112 
712 
4445 
4274 
4493 
4185 
3529 
4450 
4226 
4568 
354g 
6201 
4012 
A445 
4125 
4446 
4974 
4445 
$125 
4446 
4211 
4445 


KOBOSA, 


1$zZ 
JMP 
1 OF 
JMS 
LAS 
RAR 
S2u 
JMP 
JMS 
AND 
DCA 
TAD 
CIA 
TAD 
SMA 
JMP 
JMP 
3 


PALI Vi4i4 


OTCNTR 
718 


1 PNTR42 


CLA 
DTEXER 

I PNTRet 
KBO7B 
DTFELD 
FELD 


OTFELOD 
SZA CLA 
eo? 

OTEXER 


24-MAR=74 9119 
/DONE? 
/NO 


AYES 
/RESTORE PI STUFF 


/CHANGE MEMORY FIELD? 
JNO 
YES 


/DECTAPE OATA ERROR AQUTINE 


OTOATA>» 


g 

LAS 
AND 
SZa 
JMP 
10F 
SKP 
JMP 
TAD 
JMS 
TAD 
RAR 
RTR 
JMS 
TAD 
JMS 
TAD 
DCA 
JMS 
TAQ 
TAD 
DCA 
COF 
TAD 
JMS 
TAD 
JMS 
TAD 
JMS 
TAD 
JMS 
TAD 
JMS 


K848B 
CLA 
CHNGE1*4 


CLA 
#14 
PMESi6 
I PNTRS 
OTFELO 
CLL 


1 PNTRe4 
PMES4i5 

I PNTRI 
K7 269 
DTDATA*6 
1 PNTRSS 
OTFELO 
CHNGEL 
+1 


10 

I PNTR24 
KO24B 

I PNTR25 
1 TEMP 

I PNTR24 
K®8248 

I PNTR25S 
ii 

I PNTR24 





OR CLA 


‘TYPE OUT HEADER 


/AND DATA FIELD 
/TYPE OUT REST OF HEADER 


/PICK UP "GOOD" ADDRESS 


“PICK UP "GOOD" DATA 


/PICK UP "BAD" ADDRESS 
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Pe a, SO ee D i 


1758 
1754 
1755 
1736 
1757 
1768 
17614 
1762 
1763 
1764 
1765 
1766 
1767 
1778 
1771 
1772 
1773 
1774 
1775 


2068 
2001 
2082 
2263 
2884 
2905 
2806 
2007 
2042 
2044 
2042 
2043 
2314 
2045 
2016 
2047 
2028 
2024 
2822 
2823 
edges 
2025 
2026 
2827 
2032 
2031 
2032 
2033 
2034 


EXERCISER =< TAPE i 


4125 
4446 
4574 
4445 
445g 
6201 
7604 
7204 
7708 
7482 
8712 
3144 
2204 
2245 
6270 
4004 
2225 
4577 
G60 


2008 


7208 
6/742 
4133 
3762 
F684 
gi34 
7648 
5423 
7604 
g1g4 
7649 
7000 
4332 
6084 
4105 
$243 
4142 
3242 
1236 
4224 
S226 
4763 
6201 
$442 
6204 
2013 
5225 
6202 
A344 


Pad 9 ViSs4d 


FAD K@246 
JMS 1 PNTR25 
7aAD I TEMP 
JMS J PNYR24 
JMS [| PNTRS3 
» COF 
LAS 
RAL 
SMA CLA 
hL, T 
JMP 1 DYDATA 
PMES18, MESS18 
KG024, 4 
MESS@6, 2245 
687¢ 
4884 
2225 
4577 
8 


CHNG 


ry 
fa 


/OMBL = TAPE 5S 
®2828 
MAG TAPE EXERCISER 


MTEXER, CLA 
MT AF 
VAD SKIP 
OCA 1 PNTR26 
LAS 
AND K8O26 
SZ#A CLA 
JMP {| PNTRG 
LAS 
AND K8280 
SZA CLA 
NOP 
JMS MTSAVE 
TON 
TAD K72806 
OCA 413 
FAD BUFF2 
OCA {2 
TAD ,+6 
TAD MTFELD 
JCA .te 
JMS | PNTR27 
COF 
OCA 1 le 
COF 
1S2 13 
JMP ,-5 
1OF 
JMS MTREST 


4 


24°MAR- 4 9419 PAGE i-22 


‘PICK UP "BAD" DATA 


/HALT ON ERROR? 
/YES 


/ENABLE 
ARaM 
40:8 
/SP,0 
“ReV 
AM»? 
/END 


/CLEAR MTF AND EF 


/SUPPRESS MAGTAPE? 


YES, EXIT 
/BIT 4 SET? 
/YES 


/SAVE PI STUFF 


 ASTORE DATA IN QUTPUT BUFFER 


/DONE? 
/NO 


/RESTORE PI STUFF 














ee ees eee 


2835 
2836 
2887 
eBag 
2041 
2042 
2843 
2044 
2045 
2246 
2047 
2058 


2651 
2852 
2058 
2054 
2055 
2056 
2857 
2068 
2061 
2862 
2065 
2864 
2065 
2866 
2867 
2872 
2071 
2872 
2078 
2074 
2075 
2076 
2077 
2162 
e191 
2182 
2188 
2184 
2195 
2186 
2187 
2118 
24111 


eile 
2143 
2114 
2115 





4764 
67142 
7684 
B14 
7648 
5423 
£765 
6712 
4332 
6881 
4412 
$012 


4111 
$843 
4105 
3173 
4264 
4021 
3260 
62814 
1442 
7044 
1445 
6201 
7449 
4767 
2473 
5260 
6062 
4544 
4766 
6742 
7604 
7210 
7630 
S200 
4763 
G123 
3021 
4162 
7041 
4424 
7748 
5501 
5282 


ge00 
4370 
6746 
7249 





/OMOi EXERCISER = TAPE 1 


PALL Viéi 
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JMS | PNTR2SE AWRITE DATA ONTO MAG TAPE 
MT AF ACLEAR FLAGS 
LAS 
AND K@e2e8 
SZA CLA ASUPPRESS MAGTAPE? 
JMP | PNTRE YES, EXIT 
JMS [| PNTR2S ZREAD DATA FROM MAGTAPE 
MT AF /CLEAR FLAGS 
JMS MTSAVE /SAVE PI STUFF 
ION /TURN ON INTERRUPT 
TAO BUFF2 AQUTPUT BUFFOR 
OCA 12 
TAD BUFFS /INPUT BUFFOR 
OCA 13 
TAD K7288 /COUNT 
DCA MTCNTR 
TAD .+7 
¥AD MTFELO 
DCA ,*1 
COF 
TAD I 12 COMPARE DATA OUT WITH DATA IN 
CIA 
TAD 1 13 
cOF 
SZA GOOD? 
JMS I PNTRS1L NO, DATA ERROR 
ISZ MTCNYR ADONE? 
JMP ,°18 /NO 
1OF “YES 
JMS MTREST fRESTORE P[{ STUFF 
JMS | PNTRS@ AREAD COMPARE DATA 
MY AF /CLEAR MYF AND EP 
LAS 
RAR 
SZ. CLA /CHANGE MEMORY FIELD? 
JMP MTEXER /NO 
JMS | PNTR27 fYES 
AND K9276 
OCa MTFELD 
TAD FELD 
CIA 
TAD MTFELO 
SMA SZA CLA 
JMP 1-7 
JMP MTEXER 
/MAGTAPE SPACE FORWARD SUBROUTINE 
SPCFWD, 8 
TAD K#@666 
MTLC /LOAD CM WITH "000,7CH, SPACE FORWARD, ENABLE. 
CLA CMA 


© 


889" AND 





CLEAR FLAGS 


eo 


‘d saneiak aes 1 





2116 4156 
2417 745 
2428 8712 
2121 7041 
2122 $477 
2423 6722 
| 2124 4447 
| 2125 4441 
2126 7612 
2127 5712 
2132 4442 
| 2431 S513 
2432 282 
2433 4144 
21434 3356 
2435 4145 
| 2436 33557 
2137 4456 
2442 33562 
2141 14022 
2142 $561 
2443 8732 
2144 8822 
2145 4356 
21446 3144 
2147 4357 
2158 3145 
2151 1562 
21452 3456 
2153 45614 
2454 3800 
2155 5744 
2156 e802 
2157 @820 
21628 @88¢ 
2161 8882 
21462 2226 
2163 2512 
21464 4532 
21465 4288 
2166 4222 
21467 2282 
2172 @666 
2171 463563 
21472 7642 
21473 e441 
2174 2322 
2475 41481 
21476 3177 





/MAGTAPE SAVE SUBROUTINE 


MTSAVEs 


PALI2 Vi4i 
FAD RECORD 
SNA 
JMP ff 
CIA 
OCA 
MTGO 
UMS [ PNTR32 
JMS 1 PNTR26 
SKP CLA 

JMP | SPCFWD 
JMS I] PNYTRLO 
JUMP SPCFWDelL 


SPCFWD 


K7752 


g 

TAD AC 

OCA MTAC 

TAO LINK 

OCA MTLINK 
TAD I PNTR4&B 
OCA MTIB 
TAD 2B 
OCA MTPC 
JMP I MTSAVE 


_ 


9ily 
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/SET UP WC 

ZSET NGOMs 

“WATT FOR MT FLAG AND NO ERRORS 
ERRORS 

/YES 

/NO 


“REWIND TAPE, TRY AGAIN 


/SAVE AC 
/LINK 
AMEMORY FIELD 


AND LOC @ 


/MAGTAPE RESTORE SUBROUTINE 


MTREST; 


MTAC, 
MTLINK, 
MTIB, 
MTPC, 
PNTR26; 
PNTR27, 
PNTR28, 
PNTR2S, 
PNTRSO, 
PNTRSI, 
KZ666, 
MESS@S, 


B 

FAD MTAC 
OCA AC 

FAD MTLINK 
OCA LINK 
TAD MTIB 
OCA [ PNTR4B 
TAD MTPC 
OCA @ 

JMP | MTREST 
"y 

g 

8 

8 

MTDATA+6 
RAND2 
MTRITE 

M+ READ 
RDCOQMP 
MTDATA 
B666 

63638 

7242 

Z4i1 

2528 

14814 

3177 


ARESTORE SAVED ae 
/LINK 

/MEMORY FIELD 
AND LOC @ 


000, 82¢ 
1328 

/8;5P 

{Ds} 

4S>P 

/LoA 

AY? 


7CH, SPACE FWD, ENABLE, 














/OM@L EXERCISER = TAPE 1 


2177 


2282 
2281 
2282 
22683 
2284 
2285 
2286 
2267 
2210 
e2il 
2212 
2245 
2214 
2245 
2216 
2247 
2220 
222) 
2222 
2223 
2224 
2225 
2226 
2227 
2230 
2231 
2232 
2235 
2234 
2235 
2236 
2237 
2248 
2241 
2242 
22435 
2244 
2245 
2246 
2247 
22508 
2251 
2252 
2255 


2254 





2086 
2200 


oee0 
7604 
g103 
7649 
8247 
6282 
7648 
5223 
1356 
4423 
4021 
7119 
7042 
6445 
4074 
4423 
4195 
3206 
4456 
40214 
4246 
3226 
6201 
4@12 
4445 
4125 
4446 
4571 
4445 
4125 
4446 
4043 
4445 
4125 
4446 
4571 
4445 
4450 
6201 
7604 
7004 
7700 
7402 
5600 


G208 


#2268 


g 


/END 


/MAGTAPE DATA ERROR ROUTINE 


MYDATA, 


CHNGE2, 


INPUT 


INPUT, 


g 

LAS 
AND 
SZA 
JMP 
1 OF 
SKP 
JMP 
FAD 
JMS 
TAQ 
RAR 
RTR 
JMS 
TAD 
JMS 
TAD 
DCA 
JMS 
TAD 
TAD 
OCA 
cOF 
TAO 
JMS 
TAB 
JMS 
TAD 
JMS 
TAD 
JMS 
FAD 
JMS 
TAD 
JMS 
FAD 
JMS 
JMS 
COF 
LAS 
RAL 
SMA 
HLT 
JMP 


FROM 


g 








K2488 
CLA 
CHNGE2*1 


CLA 
+14 
PMES16 
1 PNTRSI 
MTFELO 
CLL 


I PNTR24 
PMES415 

I] PNTR4 
K7260 
MTIDATA*+6 
I PNTRSS 
MTFELO 
CHNGE2 
+1 


12 

I PNTR24 
KG246 

I PNTR2S 
1 TEMP 

I PNTR24 
KO248 

1 PNTR25 
13 

I] PNTR24 
KO24@ 

1 PNTR25 
I TEMP 

I PNTR24 
1 PNTRSS 


CLA 


I MTDATA 


PALI@ Vidi 24-MAR=74 


/OR CLA 
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/TYPE OUT HEADER 


AND DATA FIELD 


/TYPE OUT REST OF HEADER 


/PICK 


/PICK 


/PICK 


/PICK 


/HALT 
“YES 


KEYBOARD AN OCTAL 


UP 


UP 


UP 


UP 


ON 


"GOOD" ADDRESS 


"GOOD" BATA 


"BAD" aODRESS 


"BAD" DATA 


ERROR? 


DIGIT, SKIP IF QK 


e 


~~ ON ae, eRe 
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2255 4426 JMS [| PNTR4 

| 2256 3153 OCA CHAR 

| 2257 4153 TAD CHAR 
2268 7R44 CIA 

| 2261 1568 FAD KO26B 

: 2262 7542 SMA SHA 

| 2263 $273 JMP QUEST 

! 2264 1135 TAD KBG19 

| 2265 77142 SPA CLA 

| 2266 5273 JMP QUEST 

, 2267 4153 TAD CHAR 
2278 @132 AND KB@07 
2271 2254 {S# INPUT 
2272 5654 JMP I INPUT 
2273 4357 QUEST, TAD K@277 
2274 6446 JMS 1 PNTR25 
2275 4459 JMS I PNTRSS 
2276 8654 JMP J INPUT 





JOCTAL PRINT SUBROUTINE 
2277 $889 PRINT, 8 





| 2300 3171 DCA TEMP 

2301 4121 TAD MBOB4 

| 2382 §172 DCA TEMPL 

: 2383 4171 TAD TEMP 

2304 7124 RAL CLL 

2305 78084 RAL 
2306 7886 RTL 
2387 3171 OCA TEMP 

| 2318 4171 TAD TEMP 
2311 8139 AND K@887 
2312 45628 TAD K@2628 
23435 4446 JMS Y PNTR2S 
2344 4174 TAD TEMP 
2345 2172 182 TEMPY 
2346 53585 JMP .-1t 

| 2317 7288 CLA 

2328 5677 JMP | PRINT 


/MESSAGE PRINT SUBROUTINE 
2321 8883 MESAGE, @ 





2322 3171 DCA TEMP 
2523 4459 JMS I PNTR3S 
2324 4571 TAD | TEMP 
2325 562 AND K7782 
2326 7452 SNA 
2327 5724 JMP 1 MESAGE 
2338 7112 RAR CLL 

2331 7010 RAR 

2332 7012 RTR 

2333 7012 RTR 

2334 4344 JMS POSIT 











/OMBi EXERCIGER © TAPE 1 PALI Vi4ad 24-MAR~74 
2335 45714 TAD | TEMP 
2336 @356i1 ANO K8@077 
2337 7458 SNA 
2348 572i JMP | MESAGE 
2341 4544 JMS POSIT 
2342 2171 1SZ@ TEMP 
2343 53824 JMP MESAGE*3 
2344 82882 POSIT, @ 
2345 $172 DCA TEMP4 
2346 $172 TAD TEMP 
2347 4131 TAD MBB4G 
2350 7718 SPA CLA 
2351 4132 TAO kK9182 
2352 4184 TAD KO288 
23653 4172 TAD TEMPY 
2354 4446 JMS 1 PNTR25S 
2355 5744 JMP [| POSIT 
2386 4156 PMES16, MESS16 
2357 8277 KB277, 277 fttan 
2368 9268 K@268, 260 
2361 2877 KQ@O77, 77 
2362 7788 K770@, 7782 
/CARRIAGE RETURN-LINE FEED SUBROUTINE 
2363 6086 CRLF, 8 
2364 $4126 TAD KB215 
2365 4446 JMS 1 PNTR25 
2366 4127 TAD K@2i2 
2367 4446 JMS 1 PNTR25 
2378 §763 JMP | CRLF 
2371 2483 MESS84, 2483 ATE 
2372 49789 6576 458 
23735 48145 4445 /SP,M 
2374 8187 6187 AAsG 
2375 2481 2484 “TOA 
2376 2085 2885 APE 
2377 7788 7789 /?+END 


2480 #2409 


/RANDOM 
2498 @800 RANGEN: 
2491 7200 
2492 14242 
24083 4227 
2404 7649 
2495 $245 
2486 4231 
2487 3227 
2442 1232 
24141 71684 
2442 7432 
2443 7081 
2444 3232 
2445 1232 RANTAD, 





NUMBER GENERATOR 


8 

CLA 

TAD RANTND 
TAD RANDEX 
SZA CLA 
JMP RANTAD 
JAD RANTBL 
DCA RANDEX 
TAD RANCON 
CLL RAL 
SEL 

TAC 

DCA RANCON 
TAD RANCON 
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‘2 em “- 
bp d4 EXERCISER © TAPE 1 PAL{@  Vi44 24=MAR~s4 9119 PAGE 1-28 = % 


2446 4627 TAD i RANDEX + 

2447 3627 PCA I RANDEX 

24628 4243 TAD RANSAV 

2421 7812 RAR 

2422 4627 TAD | RANDEX 

2423 2227 1S2 RANDEX 

2424 3243 DCA RANSAV 

2425 4243 TAQ RANSAV 

2426 560¢ JMP I RANGEN 


2427 2442 RANDEX,» RANTNO 
2439 6943 RANCON, 6543 
| 2431 2432 RANTBL» ,#4 





| 2432 6543 6543 
| 2433 3240 3210 
: 2434 8765 8765 
| 2435 5432 5432 
: 2436 21087 2187 
2437 7654 7654 
2446 4321 4324 
2441 1076 1276 


| 2442 5336 RANTND: eRANTND 
2443 geae RANSAV: @ 


2444 @00e RANDi, @ 
| 








2445 7282 CLA 
2446 41586 FAD . +42 
2447 4273 FAD .*24 
2450 7648 SZA CLA 
2481 8261 JMP +18 
2452 4275 TAD ,*23 
24653 9273 DCA +2 
2454 4274 TAD ,+28 
2455 7104 ELL RAL 
2456 7438 SZ. 
2457 F284 LAC 
2468 3274 DCA ,+#14 
2464 4274 TAD ,*13 
2462 4673 TAD 1 . +4 
2463 9673 DCA I .+18 
2464 4277 TAB .+13 
2465 7848 RAR 
2466 1673 TAD 1 #5 
2467 2273 1SZ ,+4 
2470 33587 DCA ,+17 
2471 4387 TAD ,*16 
2472 5644 JMP I .-26 
2473 2586 2713 
2474 6543 6543 

. 2475 2476 wet 

2476 4876 1276 

| 2477 7654 7654 

! 2598 5432 5432 
2501 3212 3210 


2522 6943 6543 











, 
« Ye reemint \ Aenp ate itm chs PERNA aT aTeRRNOT 
H 


ff 


2565 
25@4 
25985 
2586 
2587 


25168 
2511 
2512 
25435 
2514 
2545 
2516 
2547 
2528 
2521 
2522 
2525 
2524 
2525 
2526 
2527 
2538 
2531 
2532 
2538 
2534 
2535 
2536 
2537 
2548 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2550 
2551 
2582 
2558 


2554 
2555 
2556 
2557 
2560 
2561 
2562 
2565 
2564 
2565 
2566 
2567 


fO0M6i EXERCISER = TAPE 1 


9765 
4187 
43524 
5272 
G0BG 


8200 
7202 
4552 
4537 
7648 
$325 
4544 
$537 
4549 
7104 
7432 
7881 
3349 
4548 
4737 
3737 
4343 
7848 
4737 
2537 
3353 
1383 
5740 
a552 
6543 
2542 
6543 
@765 
2187 
43521 
1276 
7654 
5432 
3218 
5226 
g090 


2090 
60354 
5555 
6236 
6846 
6041 
53561 
6042 
5754 
B406 
6562 
4004 


RAND2, 


8765 
2187 
4324 


g 


Q 
CLA 
TAD 
TAD 
SZA 
JMP 
TAD 
DCA 
TAO 
CLL 
SZ. 
TAC 
BCA 
TAD 
TAO 
DCA 
TAD 
RAR 
FAD 
1Sz 
OCA 
TAB 
JMP 
2743 
6543 
*h 
6543 
2765 
2187 
4321 
1276 
7654 
5432 
321408 


+49 
+24 


CLA 


+16 
»+28 
2°28 
+28 


RAL 


+14 
2t13 
I .*11 
I +18 
»718 


1 +5 


+4 


2+17 
~ +16 
{ 726 


/GET SUBROUTINE 


GET, 


MESSQ7, 


8B 

KSF 
JMP 
KRB 
TLS 
TSF 
JMP 
TOP 


JMP | GET 


G426 
6362 
4984 





Pa | 


ern 


PALI Vi4i 24"MAR~74 


DoF 
/302 
SP 20 


9:19 PAGE 1-26 


2 ne is an 
‘34 EXERCISER = TAPE 1 PALIO® Vidi 24-MAR-/4 9419 PAGE 1-32 


2578 4123 1123 4102S > 
2571 6377 8377 4Cs? 
2572 6888 8 AEND 


Te eee irene Neen Ane mumsnet: 


2688 #2632 





| 2608 3144 SCAN, DCA AC 
| 2681 7204 RAL 
| 2682 3145 OCA LINK 
| 2683 6234 RIB 
| 2604 7104 RAL CLL 
2605 70086 RTL 
2606 6123 AND K@07¢ 
2607 1566 TAQ CHNGES 
2640 3234 OCA MEMORY 
2611 6031 KSF /KEYBOARD FLAG? 
26142 7442 SKP /NO 
2643 4523¢ JMP EXIT /YES 
2644 6771 DTSF /DECTAPE FLAG? 
2645 7448 SKP 
2646 9637 JMP 1 DTFLAG /YES 
2647 6781 MTSF /MAGTAPE FLAG? 
2628 7442 SKP 
2621 8644 JMP I MTFLAG /YES 
2622 6622 6622 /DISC OR DRUM DONE FLAG? 
2623 744¢ SKP 
2624 6643 JMP 1 DDFLAG /YES 
2625 6621 66241 /OLSC OR DRUM ERROR FLAG? 
2626 7208 CLA /YES 
2627 7206 CLA JOR YES, DEPENDING ON DIS@ OR DRUM TESTED 
2630 6832 EXIT, «KCC /CLEAR AG & KEYBOARDFLAG 
26314 4145 TAD LINK RESTORE LINK @ AC 
2632 7140 RAR CLL 
2633 41144 TAD AC 
2634 6201 MEMORY» COF /RESTORE MEMORY FIELDS 
2635 6081 1ON ATURN ON INTERRUPT 
2636 $462 JMP 1 @ /EXIT 


/DECTAPE FLAG RETURN ADDRESS 


2637 8088 DTFLAG» @ 
26408 5232 JMP EXIT ZEXIT TO TURN P,I. ON 


/MAGTAPE FLAG RETURN ADDRESS 


2641 9080 MTFLAGs 2 
2642 5232 JMP EXIT 


/DISC OR ORUM FLAG RETURN ADDRESS 


2643 880 DDFLAG» @ 
2644 5238 JMP EXIT 





ATYPE SUBROUTINE 











ek ee GA oa ak ees as ae 


2645 
2646 
2647 
2656 
2651 
2652 
2655 


2654 
2655 
2656 
2657 
26608 
2661 
2662 
26635 
2664 
2665 
2666 
2667 
2676 
2671 
2672 
2675 
2674 
2675 
2676 
2677 
2780 
2781 
2782 
27835 
2784 
2785 
2706 
2767 
2710 
2711 
2742 
2743 
27144 
2715 
2716 
2747 


2720 
2721 
2722 
2725 
2724 


/OMOL EXERCISER = TAPE i 


G88 
6046 
60441 
§247 
6042 
7280 
5645 


aoe 
7208 
4516 
43523 
7648 
5271 
4585 
3503 
4304 
7104 
7430 
7001 
$304 
4584 
4783 
3783 
4587 
7018 
4783 
2323 
$3547 
4547 
5654 
2716 
4543 
2786 
2107 
5432 
7654 
8765 
4321 
3210 
4076 
6543 
§262 
aoe 


BLO 
7684 
2183 
7642 
5567 





TYPE, 


RANOS, 


PALI Vi44 24~-MAR@74 


y 

TLS 

TSF 

JMP ot 
YCr 

CLA 

JMP 1. TYPE 


/DISC OR DRUM DATA ERROR ROUTINE 


DODATA:, 


2 

LAS 

AND K@400 
SZA CLA 

JMP CHNGES*+4 
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2725 6882 1 OF 

2726 7648 SKP CLA /QR CLA 
2727 33543 JMP ,+44 
2730 4574 FAD PMES17 

| 2731 4483 JMS ] PNTR4 /TYPE OUT HEADER 

2732 1822 TAD DODFELD 

| 2733 7118 RAR CLL 

7 2734 7012 RTR 

2735 4445 UMS | PNTR24 /AND DATA FIELD 
2736 4874 TAD PMES15 
2737 4483 JMS [| PNTR4I /TYPE OUT REST OF HEADER 
2748 4105 TAD K7280 
2741 $526 OCA DODATA+6 
2742 4459 JMS [| PNTRS3 
2743 4822 TAD DOFELD 
2744 4566 TAD CHNGES 
2745 3546 DCA: «+1 
2746 62014 cOF 
2747 40414 TAD 14 /PICK UP "GOOD" ADDRESS 
2750 4445 JMS | PNTR24 
27314 4125 FAD K8248 
2752 4446 JMS 1 PNTR25 
2763 4571 TAD | TEMP /PICK UP "GOOD" OATA 
2754 4445 JMS | PNTR24 
2755 4125 TAD KO248 
2786 4446 JMS 1 PNTR25 
2757 1615 FAD 15 /PICK UP "BAD" ABORESS 
2768 4445 JMS J PNTR24 
2761 4125 TAD K8242 
2742 4446 JMS | PNTR25 
2763 457141 TAD | TEMP /PICK UP "BAD™ DATA 
2744 4445 JMS | PNYR24 
2765 4459 JMS 1 PNTRSS 
2766 6281 CHNGES, COF 
2767 F684 LAS 
2772 7884 RAL 

| 2771 7788 SMA CLA /HALT ON ERROR? 

2772 7482 HLT AYES 

2773 5722 JMP | DODATA 


2774 4357 PMES47, MESS17 


3082 #3280 
3QQ20 8417 MESS@1i,» 8417 00 


! 

{ 

| 

! 3061 0523 2523 /E9S 

| 3ea2 4024 4024 /SP,7 

, 3003 1005 1085 = /HeE 

| 3204 4883 4023 /SP,C 

| 3005 4745 4715 /OoM 

: S2@6 2625 2825 /PaW 
3207 2485 2485 /T+E 
3218 2248 2240 /R»SP 
3211 4201 1024 JH» A 


3812 26085 2685 AVE 


ea sxcescnl chaste ek cette cette tt Seo ae 
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SH15 
3814 
3845 
$816 
5847 
3828 
S21 
S822 
38285 
53824 
3225 
3826 
3827 
5832 
S831 
$832 
$833 
3834 
$835 
5836 
5837 


3848 
S41 
3842 
38438 
3844 
3845 
3846 
3947 
5858 
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3G76 4865 4965 /SP,E y 
3977 2222 2222 /ROR 
34g8 4722 4722 OR 
3101 4823 4Q23 /SP,S 
3192 2461 2484 /ToA 
3183 2425 2425 Ted 
3194 2342 2349 4SsSP 

3195 4882 4880 /SP,END 

3186 2463 MESS43, 2463 /TeC 

3107 6578 6576 1348 

| 3419 4885 4985 /SP,E 

3111 2222 2222 /RaR 

| 3442 4722 1722 /OoR 

| 3413 4823 4023 /SP,S 

| 3114 2481 2404 /TeA 

| 3145 2425 2425 ‘Tel 

| 3116 2548 2349 /S:SP 

| 3417 4880 4080 /SP,END 
3120 8422 MESS44, @422 /O-R 
3121 2545 25415 fem 
3422 4865 4005 /SP,E 
3123 2222 2222 /RoR 
31424 4722 1722 /OeR 
3125 4823 4023 /S5P,5 
$126 2481 2484 /ToA 

| 3127 2425 2425 fT 

3138 2548 2234p 4S.SP 

3131 40862 4882 /SP,END 

3432 6701 MESS45, 8784 /GeA 

3433 €404 2484 /020 
3134 4087 4007 /SP,G 
3135 g481 9481 /DrA 
3136 2449 2449 /T.SP 
3437 @201 g204 /BoA 
31448 9424 gaa /D»D 
314% 48982 4082 /SP,B 
3142 94081 0401 /DaA 
3143 2420 2489 /TsEND 


3144 2483 MESS18, 2483 “T:C 


$145 6861 6664 Bel 
3146 46824 4604 /SP,D 
3147 9124 Gi24 AAeT 
315@ 9142 G142 /AoSP 
Si8i 8322 Bode fEaR 
3152 2217 2247 /R»0 
S133 2248 2242 /ReSP 
3154 4116 £16 AlaN 
3155 4882 4282 /SP,8B 
3156 @116 @116 SAsN 
3157 4548 1542 /KaSP 
3168 4888 4682 /SP,END 


3161 8414 PRO338, 414 /SET SCALE TO 1, INTENSITY TO 4 
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3162 4397 1187 /ENTER POINT MODE ANO DATA STATE, CLEAR COORD ANO SECTORS 
3163 8189 188 ASET Y=108 
31464 4108 4199 /SET X3108, ESCAPE 
3165 4121 1121 /JENTER VECTOR MOGE AND DATA STATE 
3166 4809 4089 /DELTA Ys@e INTENSIFY 
3167 4689 168¢ /DELTA X#160@ 
3178 5686 562¢ /DELTA ¥2166@, [INTENSIFY 
3171 @@080 g /DELTA X28 
3172 4880 480¢ /DELTA Ye@, INTENSIFY 
3173 $680 3682 /DELTA Xe-160@ 
3174 7682 7686 /DELTA Ye4600> INTENSIFY 
3175 482890 4800 /DELTA Xe@, ESCAPE 
3176 2000 2889 /JMP I ied 
3177 9165 PRO338+4 
§ 
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AC gi4a4 DIMA 6616 HALT2 4318 LINK 145 7 
ASKY 92146 BIML 6615 HALT3  4%457 LOCSED 41843 
ASK2 @225 O18338 9365 HALT4 8733 LOOK 2175 
ASK3 6234 CISCAD #148 INPUT 2254 M603 8115 
ASK4 G243 OISCEA 6137 INTERN 8143 MZ0G4  @124 
ASKS 8253 NMAC 6626 INTERR 8287 MB24@ 91314 
ASK6 B263 DMAR 6683 JMP338 8161 M0316 9116 
ASK? G272 OMAW 6685 JMPCON 8786 M6331 6117 
BUFF 4 g106 ORCE 6611 JMPD32 9157 M2768 6128 
BUFF2 142 DREN 6624 JMPBDEC @154 MAGTAP #618 
BUFFS gii4 ORER 6683 JMPMAG 91585 MEMORY 2634 
BUFF 4 @187 DRCW 6605 JMPROS 816% MESAGE 235214 
BUFFS Biit BREF 6642 JEPRMB 9156 MESS@1 3888 
BUFF6&  @113 BRES 6612 K 2082 4152 MESSB2 1565 
cOF 6284 DRFS 6624 KS863 £153 MESS@3 2174 
CHAR @is3 DRMSEC 9152 KOGGSA 4714 MESSO4 2371 
CHNGEL 4762 DRSC 6622 KGGG4 1767 MESS@6 4776 
CHNGE2 2246 BRSE 6624 KG687 8138 MESSB7 2565 
CHNGES 2766 ORTS 6615 K98id 8135 MESS@B 3846 
CIF 262 BRUMAD 61434 K@G14  a116 MESSES 3846 
CRLF 2563 ORUMWT 1434 K@B28 68434 MESS¢2 3855 
OCEA 6644 OSAc 6612 KBG4G 8124 MESSii 3862 
OCIM 6641 OTAC 1322 KG27G6 8423 MESS27 3874 
DCMA 6661 OTCA 6762 K@277 25614 Pees; 3186 
DOAC G64 BYCNTR 6176 K@20@ 132 MESSi4 3428 
ODDENTR 6174 DTGATA 2712 KGL SG 1152 MESS&i5 31382 
DDDATA 2726 DTERR 4137 K@i59 41514 MESS1E 1156 
ODEXER 6488 OTEXER 4689 KG28G 6184 MESS27 4357 
OOFELO 822 OTFELD 9826 K8212 6127 MESS1& 3144 
ODFLAG 2643 OTFLAG 2637 K9245 6126 WTAE 2156 
OD1B 563 SiiB 4324 K824g 8125 MTAF 6712 
ODLINK  @562 DTLA 6766 KB268 2366 MTS e714 
DDLOarF 8565 OTLB 6774 K8277 2357 MTCNTR 173 
DDPC G564 OTLINK 413823 KO488 8183 ATER 6721 
DOREAD 8443 HTPC 1325 KB68G 4454 MTOAT. 2286 
DOREST 9547 OTPNTR 8163 KB684 776 MTEGR $255 
DORITE 6435 ATRA 6764 K8614 4155 MTEXER 2682 
DOSAVE #8935 OTRB 6772 KBE26 4356 MTFELO @8@24 
DOSTAY @152 DTREAD 1647 K8636 4355 MTFLAG 2641 
DEAC GO46 DYREST 1343 K8666 2178 MTGO 4722 
DEAL 8645 BTRITE 41867 KG676 14254 MTHLTL L414 
DECTAP 8606@ DTSAVE 1354 KG746 1564 MTHLT2 ful? 
OF S2 go44 DTSF 6774 Ki8ee 8136 KT IB 48 
OF SZEX 9526 OTSTAT @146 K38@8 8122 MTLC riig 
DFS2PR 166 DTWAIT i487 K7262 @195 MTLINK 2233 
oFSeRO 4785 CTXA &764 K 778g 2362 ope Se iadee 
OFS2RE 85384 DX AL 6643 K7758  @B75 MYPNTR @4152 
OF S2R1 8533 EXIT 263g K7751 @876 MTREAD 1262 
oF S32wWR 8735 FELO 8142 K7752 0977 MTREST 2144 
OF 32wT 68787 FOUND 41145 K7753 6108 MTRITE 4532 
OFSC 6622 GET 2554 K7754 B11 MTRS 6726 


OFSE &621 HAL T4 1155 K7755 8182 MTSAVE 21352 
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PNTRO 
POSIT 
PRINT 
PRO338 
QUEST 
RANCON 
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RAND2 
RANDS 
RANDEX 
RANGEN 
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RANTND 
ROCOMP 
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248g 
2443 
2415 
2481 
2442 
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8152 
1246 
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B547 
8167 
1464 
8525 
0524 
1581 
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6234 
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8627 
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8165 
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